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im 
Insile 
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Intele vision 

Inlellec 
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iSBX 
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MCS 



Mepachassis 
Micromap 
Multibus 
Muiiimodule 
PROMPT 
Prom ware 
RMX hO 
System 2(HK) 
UP] 



and the combination of ICE, iCS. iRMX. iSBC, iSBX, MCS, or RMX and a numerical suffix 



A455/1081/1.5K DD 



This manual contains the program listing of the SDK-51 system monitor. 
For details on the assembly and operation of the SDK-51 system design 
kit, refer to the following Intel publications. 

$DK-51 MCS-Sl ^*" System Design Kit Assembly Manual , manual order 
number 121589. 

SDK-51 MCS-51 '^^"' System Design Kit User's Guide , manual order 
number 1215««. 
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ISIS-II MCS-51 MACRO ASSEMBLER X040 
OBJECT MODULE PLACED IN : F3 : SDKMON . HEX 

ASSEMBLER INVOKED BY: :F1:ASM51 : F 1 : SDKMON. SRC PR I NT ( : F2 : SDKMON . LST ) OBJECT (: F3 : SDKMON . HEX ) DATE (8 , 12 ,81 ) WORKF ILES ( : F3 
: , :F3: ) EP DB SB 



LOC OBJ 



LINE 



SOURCE 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 +1 



$nomacro 
$X RE F 

$TITLE( 'SDK-51 MONITOR CODE INTEL PROPRIETARY VERS. #1.03') 
****************************************************************** 



SDK-51 MONITOR INTEL PROPRIETARY 

THIS SOFTWARE IS COPYRIGHTED UNDER INTEL PART NUMBER 162787-004 



VERSION 1.03 



3-12- 
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* ******************************************************************* 

$EJECT 
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LOC OBJ 



LINE 
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46 
47 
48 
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53 
54 
55 
56 
57 
58 
59 
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63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 



SOURCE 



• *******•*:* 



t*********************************** ****************** 



TABLE OF CONTENTS 



PREFACE: 



HOW TO USE THIS LISTING 



This monitor and the assembler/disassembler are written 
in ASM51 code. These listings may serve the user as 
both debug aids and as an example of how many of the unique 
ASM51 commands may be used in context. 

In general, the organization on this monitor listing is as 
follows. The POWER ON routine is the 'cold start' location, 
that is, it does a TTardware reset. START is the main program 
which is the top of the idle loop. It is also the 'warm start' 
location, that is it does software resets and initializations. 

Upon receipt of a command from the user via the console, START 
determines which routine will handle each command and branches 
to it. The command handler routines will always have a label 
with the suffix '_CMD ' . 

HEADER BLOCK INFORMATION: 

At the beginning of each subroutine, on a new page, there will 
be a block containing the name of the routine. The name may 
have an '(I)' or a '(U)' as a prefix. The I indicates that 
the routine is internal only, the U indicates that the routine is 
only suitable for use by the user. 

The abstract contains a brief description of what the function 
of that module is and highlights of any subtle cautions or user 
interface notes. There will also be lists of inputs, outputs, 
error exits, variables modified and subroutines called. The 
rules for these lists are strict. 

Input lists contain only explicitly passed global or local variables. 
Information returned by any other procedure (i.e. passed parameters) 
that is called by the procedure whose block you are reading will not 
be included in the input list. 

Output lists contain only variables altered by the procedure for 

the purpose of transmitting necessary information to another procedure. 

The variables modified lists contains only local variables, registers 
or memory locations that are modified and not restored by the end on 
the routine. 

The error exits will contain any error number that is locally 
generated. There is the possibility that an error may be detected 
in a routine with no error exits noted if the error number was set 
in a previous routine and just 'falls through' because the error is 
still the same. 

The subroutines called list will contain any other routine that is 
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LOC OBJ 



LINE 

93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 



SOURCE 



directly called or jumped to by the procedure in question. 

XREF: 

At the back of the monitor listing and again at the back of the 
assembler/disassembler listing there is a table of cross references. 
Each variable name is listed in alphabetical order along with its 
type (that is in what type of memory does it reside, is it a label 
or a number), the address value it has and all of the line numbers 
where that variable name appears. The line number with the '#' 
designation is the line where the variable is defined. 

CONTENTS: 

This monitor listing contains one source file and five 
include files. Each include file contains a number of functions, 
tables and subroutines which will each have their own header block 
and will begin on a new page. The files are as follows: 

SDKMON.SRC (SOURCE FILE) 

JUMP TABLE FOR USER ACCESSABLE ROUTINES 

CONSTANTS 

VARIABLES 

FLAGS 

TOKEN EQUATES 

TOKEN TABLE 

POWER_ON 

SIGN_ON 

START 

INIT_IO 

(I )WAIT_FOR_USER 

CHECK_EPROMS 

COMMON. INC (INCLUDE FILE) 

CONSTANTS USED BY ALL MODULES 

GLOBAL VARIABLES USED BY MORE THAT ONE MAIN MOD. 

ARRAYS 

VARIABLES 

FLAGS 

REGISTERS 

JUMP TABLE ENTRY ADDRESSES FOR ALL MODULES 

UTILIT.INC (INCLUDE FILE) 

(I)ERROR 

(I)EOL_CHECK 

I NC_PNT/DEC_PNT/SWAP_PO INTERS 

SPACCO/(I)CO 

ICI 

ICSTS 

(U)CSTS 
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LOC OBJ 



LINE 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 



SOURCE 



(U)CI 

(I)UPI_CMD 

UPI_OUT 

UPI_IN 

(I)CONTINUATION_LINE 

(I)FETCH/(I)STORE 

(I)NEWLINE 

AZTEST/NMTEST/HXTEST/ALFNUM 

LSSEQL 

(I)GETNUM/(I)GETEOL/(I)GET_COMMA 

ISIT_DISPLAY 

(I)GET_PART 

(I)SAVE_AND_DISPLAY 

CONVHEX 

(I)LSTWRD/(I)LSTBYT 

PAINTER 

GETCHR 

(I)GETOKE 

NUMBER 

SYMBOL 

STRING_SPACE 

(I)PIRNT_STRING 

(I)DISPLAY_TOKEN 

ASCII_TO_HEX 

I TIME 

DISCHA.INC (INCLUDE FILE) 

DISPLAY 

LODMEM 

FILLMEM 

DISMEM 

BMOVE 

MODBRK 

ACC_MOD 

KEYWORD_DISPLAY 

XQT.INC (INCLUDE FILE) 

BREAK 

UNBREAK 

READ_PC/WRITE_PC 

CHECK_FROM 

BREAK_VECTOR 

STEP CMD 

STEP'^1_RET 

GO_CMD 

MONFUN.INC (INCLUDE FILE) 

LIST_CMD 
BAUD_CMD 
TOP_CMD 
CAUSE_CMD 
SEND BYTE 
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LOC OBJ 



LINE 



SOURCE 



203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 



HEXBIN 

GET_TYPE 

LOAD_HEX 

STORE_HEX 

LOAD_CMD 

SAVE_CMD 

DOWNLOAD_CMD 

UPLOAD CMD 



******************************************************************* 



+1 $EJECT 
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LOC OBJ 



LINE 



SOURCE 



EOOO 



0001 
0003 
0006 
0005 
0007 
OOOA 
005E 
0080 
OOAl 
00D4 
OOAO 
0040 
0010 
0018 
0004 
0080 
0000 



0024 



0024 
003C 
0040 



0043 
0044 
0045 
0046 
0047 
0048 
0049 
004A 
004B 
004C 
004D 
004E 
004F 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 



215 +1 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

22 8 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 



$INCLUDE( :F1:C0MM0N. INC) 

BASE EQU OEOOOH 

.***** CONSTANTS USED BY ALL MODULES ***^ 



NUMBER_TOKE 

BAR_TOKE 

POUND_TOKE 

PLUS_TOKE 

EOL_TOKE 

ATA_TOKE 

C_TOKE 

CBYTE_TOKE 

DPTR_TOKE 

ORG_TOKE 

PC_TOKE 

REG 

OFST 

LINMAX 

TOKSIZ 

BLINK 

SELECT CON 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



OIH 

03H 

06H 

05H 

07H 

OAH 

05EH 

080H 

OAIH 

0D4H 

OAOH 

40H 

lOH 

24 

4 

BOH 

OOH 



;Constant 



;Constant (GETOKE , number token) 
;Constant (GETOKE , si ash (/) token) 



;Constant (GETOKE, end of line token) 



;Set the blink bit in bytes to go to the UPI 
;Set up UPI for on-board console 



.***** GLOBAL VARIABLES USED BY MORE THAN ONE MAIN MODULE ***** 

DSEG 

ORG 24H 

;***** ARRAYS ***** 



LINBUF: 
STRGBF: 
WORKING SPACE: 



. ***** 



VARIABLES 



ERRNUM: 

PNTHGH: 

PNTLOW: 

SELECT: 

TEMP_LOW: 

TOKSTR: 

VALHGH: 

VALLOW: 

ASM_PC_HIGH: 

ASM_PC_LOW: 

NUMBER_OF_BYTES: 

OUR_CODE_HIGH: 

OUR_CODE_LOW: 

CHARIN: 

CHRCNT: 

LINE_START: 

LINCNT: 

LNLGTH: 

STRGCT: 

TEMPI: 

PARTIT_LO_HIGH: 

PARTIT LO LOW: 



DS 
DS 
DS 



DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 



LINMAX 
TOKSIZ 
3 



;Input line buffer(24 chars) 
;Buffer for string 
;Buffer for ASM/DASM 
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0059 
005A 



0000 



0000 
0001 



REG 
REG 
REG 
REG 
REG 

(reg 

REG 
REG 
REG 
REG 
REG 



E006 
E009 
EOOC 
EOOF 
E012 
E015 
E018 
I EOIE 

E04A 
E04D 
E050 
E053 
E056 
E059 
E05C 
E05F 
E062 
E065 
E068 
E06B 
E06E 



LINE 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 



SOURCE 

PARTIT_HI_HIGH: 
PARTIT_HI_L0W: 

.*•*** FLAGS ***** 
BSEG 
ORG 

B_0__T : 
LSTFLG: 

CSEG 
.•*•** REGISTERS ***** 
EQU 



DS 
DS 



OBIT 
OBIT 



POINTO 

POINTl 

PARAMl 

PARAM2 

PARAM3 

PARAM4 

PARAM5 

PARAM6 

COUNT 

CHECKSUM 

TEMP 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



;Register (addr pointer) 

;Register (addr pointer) 

^Register (parameter passing media #1 ) 

;REGISTER (Parameter passing media #2) 

;REGISTER (Parameter passing media #3) 



END OF VARIABLE 



+ 1 



RO 
Rl 
R2 
R3 
R4 
R5 
R6 
R7 
R7 
R6 
R5 
__ EQUATES ***** 
^^^^^^* *********************************************************** 

JUMP TABLE ENTRY ADDRESSES FOR ALL MODULES 
^^^^*^************************************************************ 

CO 

CI 

CSTS 

NEWLINE 

TIME 

LSTBYT 

LSTWRD 

PRINT_STRING 

FETCH 

STORE 

GETNUM 

GETEOL 

GETOKE 

DISPLAY_TOKEN 

SAVE_AND_DISPLAY 

ERROR 

WAIT_FOR_USER 

GET_PART 

CONTINUATION_LINE 

GET_COMMA 

EOL_CHECK 

$EJECT 



EQU 


6 + 


BASE 


EQU 


9 + 


BASE 


EQU 


OCH 


+ 


BASE 


EQU 


OFH 


+ 


BASE 


EQU 


12H 


+ 


BASE 


EQU 


15H 


+ 


BASE 


EQU 


18H 


+ 


BASE 


EQU 


lEH 


+ 


BASE 


EQU 


4AH 


+ 


BASE 


EQU 


4DH 


+ 


BASE 


EQU 


50H 


+ 


BASE 


EQU 


53H 


+ 


BASE 


EQU 


56H 


+ 


BASE 


EQU 


59H 


+ 


BASE 


EQU 


5CH 


+ 


BASE 


EQU 


5FH 


+ 


BASE 


EQU 


62H 


+ 


BASE 


EQU 


65H 


+ 


BASE 


EQU 


68H 


+ 


BASE 


EQU 


6BH 


+ 


BASE 


EQU 


6EH 


+ 


BASE 
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LOG OBJ 



LINE 



SOURCE 



EOOO 

EOOO 02E274 



E003 


02EDC6 


E006 


02E5E8 


£009 


02E619 


EOOC 


02E613 


EOOF 


02£7i7 


E012 


02EA45 


£015 


02E7F9 


£018 


02E7F4 


EOIB 


02EA3C 


EOIE 


02E9Ff 


£021 


02E274 


£024 


02E274 


£027 


02E274 


£02 A 


02E274 


E02D 


02E274 



£030 



£030 


20 284329 


£034 


20313938 


£038 


3120494E 


£03C 


54454C20 


£040 


434F5250 


£044 


2£20 


£046 


08 


£047 


12 


£048 


81 


£049 


00 


£04A 


02E66B 


£040 


02E672 


£0513 


02£769 


£053 


02E773 


£05€ 


02£8BC 


£0S9 


02EA12 


£05€ 


02£70D 


EOSF 


02£3£4 


£062 


02£3B0 


£065 


02£7A2 


Eom 


02£650 


£068 


02€77A 


£06£ 


02£5B8 



319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 



.***********•******•******************••******************* * * ****** 
ORG BASE 



JMP 



POWER ON 



; Initialize and start monitor. 



.****************************************************************** 
[ JUMP TABLE FOR USER ACCESSABLE ROUTINES 



BREAK: LJMP 



LJMP 
LJMP 
LJMP 
LJMP 
LJMP 
LJMP 
LJMP 
LJMP 
LJMP 
LJMP 
LJMP 
LJMP 
LJMP 
LJMP 



ORG 



IBREAK 



ICO 

UCI 

UCSTS 

INEWLINE 

ITIME 

ILSTBYT 

ILSTWRO 

IASCII_TO_H£X 

IPRINT_STRING 

POWER_ON 

POWER_ON 

P0W£R_ON 

POW£R_ON 

POWER_ON 

BASE+30H 



;Do not access this vector except through 
;normal SDK system interrupts, 
;breaks and keyclosures 



;The rest of the jump table reserved 
; for future expansion. 



COPYRIGHT: 



DB 



' (C) 1981 INTEL CORP. 



351 


OAT£COO£: 


OB 8H,12+^,81H 


352 


STOR£0_ 


CHECK 


SUM: DB 


353 




" LJMP 


IFETCH 


354 




LJMP 


ISTOPE 


355 




LJMP 


I GET MOM 


356 




LJMP 


IGETEOL 


357 




LJMP 


IO£T0KE 


358 




LJMP 


lOISPLAY TOKEN 


359 




LJMP 


ISAV£ AND DISPLAY 


360 




LJMP 


lERROP 


361 




LJMP 


IWAIT FOR USER 


362 




LJMP 


IGET PART 


363 




LJMP 


ICOf^TlMtJ^TIO!^ LJ1^£ 


364 




LJMP 


IG£T COMMA 


365 




LJMP 


I£OL CHECK 


366 
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0004 
0002 
0008 
OOOD 
OOOA 
0009 
007F 
00 IB 
0007 
0004 
0008 
0083 
0003 
0009 

, 0002 
0082 
0001 
0001 
0000 
OOOB 
AOOl 
AOOO 
BOOO 
COOO 
B800 
0005 
0040 
OOCO 
OOFF 
OOIF 
OOFl 

I OOF 2 
OOFS 
00F4 
OOFS 
OOF 6 
00F7 
OOFS 
0OF9 
OOfA 
OOFS 
OOFC 
OOFO 
OOFS 
OOFE 
OOFF 



005B 
0058 



367 


.***** CONSTANTS ***** 




368 








369 


EQUAL TOKE 


EQU 


4 


370 


COMMA TOKE 


EQU 


02H 


371 


BACKSP 


EQU 


08H 


372 


CR 


EQU 


ODH 


373 


LF 


EQU 


OAH 


374 


HORIZONTAL TAB 


EQU 


09H 


375 


RBOUT 


EQU 


7FH 


376 


ESC 


EQU 


IBH 


377 


STACK 


EQU 


07H 


378 


RESET CMD 


EQU 


04H 


379 


CLR BRK LATCHES 


EQU 


08H 


380 


TOP PORT 


EQU 


83H 


381 


GR PORT 


EQU 


03H 


382 


NO BREAK 


EQU 


09H 


383 


CA3"SETTE READ 


EQU 


02H 


384 


CASSETTE WRITE 


EQU 


82H 


385 


USART MODE 


EQU 


OIH 


386 


SINGLE BREAK 


EQU 


OIH 


387 


DATA BREAK 


EQU 


ODH 


388 


PROGRAM BREAK 


EQU 


OBH 


389 


UPI CONTROL 


EQO 


OAOOIH 


390 


UPI DATA 


EQU 


OAOOOH 


391 


RAMOFF 


EQU 


OBOOOH 


392 


BRKOFF 


EQU 


OCOOOH 


393 


RAM 10 


Equ 


OB800H 


394 


TIMER HIGH 


EQU 


05H 


395 


CONTINUOUS MODE 


EQU 


40H 


396 


START 15 TIMER 


EQU 


OCOH 


397 


MAXLO¥ ~ 


EQU 


OFFH 


398 


MAXHGH 


EQU 


OlFH 


399 


UPI DATA IMAGE 


EQU 


OFIH 


400 


SAVE SEL 


EQU 


0F2H 


401 


AOOR~"SAVE HIGH 


EQU 


0F3H 


40^ 


ADDR SAVE LOW 


EQU 


0F4H 


403 


DELAY 


EQU 


0F5H 


404 


GR 


EQU 


0F6H 


405 


BAUD HIGH 


EQU 


0F7H 


406 


BAOO LOW 


EQU 


0F8H 


407 


TOP STORE 


EQU 


0F9H 


408 


mn FLAfiS 


EQU 


OFAH 


409 


BREAK STATUS 


EQU 


OFBH 


410 


BAUOKFY 


EQU 


OFCH 


411 


UPC 


EQU 


OFOH 


412 


NOT STEP 


EQU 


OFBH 


413 


SINHiESTEP 


EQU 


OFEH 


414 


MULTISTEP 


EQU 


OFFH 


415 








416 








417 


;********** VM I ABIES 


******* 


418 








419 


DSEG 






420 


onQ 


<PARTIT 


HI LOW 


421 


TOKSAV: 


DS 


"1 ~ 



Constant (GETOKE , EQUAL TOKEN) 

Constant (Comma token) 

Constant (GETCHR , LITERAL 'BACK SPACE') 

Constant (NEWLIN, LITERAL 'CARRAGE RETURN'] 

Constant (NEWLIN, LITERAL 'LINE FEED') 

Constant (TAB KEY) 

Constant (GETCHR , LITERAL ^DELETE') 

Constant (EXECUT , LISTER 'ESCAPE') 

UPI reset command 

UPI top port 

UPI hardware GO register port 

Disables break logic 

UPI select cassette read mode 

UPI select cassette write mode 

UPI serial port select for up/down load 

Enables single step breaks. 

Enables data memory breaks 

Enables program memory breaks 



Constant (STORE , 16-BIT INTERNAL RAM OFFSET) 

Constant (STORE ,16-6IT, BREAK RAM OFFSET) 

Constant (STORE , 16-BIT INTERNAL RAM I/O OFFSET) 

Constant {ADDRESS OF 8155 TIMER HIGH BYTE) 

Constant (COMMAND MODE FOR TIMER) 

Constant (COMMAND TO LOAD AND START TIMER) 

Constant 

Constant 

Software version of UPI input data. 

Used to store the token during emulation. 

Saves display address during emulation. 

Stores multi-step delay count. 
GO register 

Stores baud rate information. 

Stores the user TOP value 

Stores monitor flags 

Used to store the step flag during emulation. 

Stores co<ied baud info in one byte 

Software copy of PC when not in execution. 

Stored in BR£AK_STATUS to indicate not stepping 

Stored in BR£AK_STATUS to indicate single step 

Stored to indicate multiple single steps. 



VOATA ADDR 
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LOC OBJ 

005C 
005D 
005E 
005F 
0060 
0061 
0062 
0063 
0064 
0065 



0002 
0002 
0003 
0004 
0005 



LINE 



SOURCE 



422 


DLYCNT: 


DS 1 


423 


COUNTR: 


DS 1 


424 


VPC LOW: 


DS 1 


425 


VPC HIGH: 


DS 1 


426 


CAUSE IMAGE: 


DS 1 


427 


PCNTHI : 


DS 1 


428 


PCNTLO: 


DS 1 


429 


LENGTH HIGH: 


DS 1 


430 


LENGTH LOW: 


DS 1 


431 


TYPE: 


DS 1 


432 






433 


;***** FLAGS 


***** 


434 






435 


BSEG 




436 


ORG 


(LSTFLG+1) 


437 


ANY BR FLAG: 


DBIT 1 


438 


FIRST FLAG: 


DBIT 1 


439 


MAXNUM FLAG: 


DBIT 1 


440 


BINARY FLG: 


DBIT 1 


441 


CSEG 




442 +1 


$EJECT 





;DATA ADDR 
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LOC OBJ 



005F 

0052 

0053 

0051 

005C 

0088 

0012 

0098 

0024 

0023 

0013 

0021 

OOBO 

009B 

OODO 

0089 

00D2 

0019 

002A 

002B 

002C 

00B8 

00D3 

0082 

0035 

0031 

0025 

OOEO 

0008 

0009 

00C2 

0037 

0027 

0028 

0018 

0032 

0026 

0017 

0015 

0016 

0010 

00D7 

0011 

00E2 

00B9 

OOIF 

OOIA 

OOIB 

0030 

003B 

OOOF 



LINE SOURCE 

443 .********•*•*****•***•*••****************************************** 

444 '; TOKEN EQUATES 

445 .******•*•**•••*•**•*****•*•*************************************** 

446 

447 ATDPTR_TOKE 

448 ATRO_TOKE 

449 ATR1_T0KE 

450 A_TOKE 

451 AB_TOKE 

452 ABR_TOKE 

453 ACALL_TOKE 

454 ACC_TOKE 

455 ADD_TOKE 

456 ADDC_TOKE 

457 AJMP_TOKE 

458 ANL_TOKE 

459 ASM_TOKE 

460 B_TOKE 

461 BAUD TOKE 

462 BR_TITKE 

463 CAUSE_TOKE 

464 CJNE_TOKE 

465 CLR_TOKE 

466 CPL_TOKE 

467 DA_TOKE 

468 DASM_TOKE 

469 DATA_TOKE 

470 DBYTE_TOKE 

471 DEC_T0KE 

472 DIV_TOKE 

473 DJNZ_TOKE 

474 DOWNLOAD_TOKE 

475 FOREVER_TOKE 

476 FROM_TOKE 

477 GO_TOKE 

478 INC TOKE 

479 JB_TOKE 

480 JBC_TOKE 

481 JC_TOKE 

482 JMP_TOKE 

483 JNB_TOKE 

484 JNC_TOKE 

485 JNZ_TOKE 

486 JZ_TOKE 

487 LCALL_TOKE 

488 LIST_TOKE 

489 LJMP_TOKE 

490 LOAD_TOKE 

491 MODE TOKE 

492 MOV_TOKE 

493 MOVC_TOKE 

494 MOVX_TOKE 

495 MUL_TOKE 

496 NOP_TOKE 

497 ON TOKE 



EQU 


15+REG+OFST 


EQU 


2+REG+OFST 


EQU 


3+REG+OFST 


EQU 


051H 


EQU 


12+REG+OFST 


EQU 


088H 


EQU 


2+OFST 


EQU 


098M 


EQU 


20+OFST 


EQU 


19+OFST 


EQU 


3+OFST 


EQU 


17+OFST 


EQU 


OBOH 


EQU 


09BH 


EQU 


ODOH 


EQU 


089H 


EQU 


0D2H 


EQU 


9+OFST 


EQU 


26+OFST 


EQU 


27+OFST 


EQU 


28+OFST 


EQU 


0B8H 


EQU 


0D3H 


EQU 


082H 


EQU 


37+OFST 


EQU 


33+OFST 


EQU 


21+OFST 


EQU 


OEOH 


EQU 


008H 


EQU 


009H 


EQU 


0C2H 


EQU 


39+OFST 


EQU 


23+OFST 


EQU 


24+OFST 


EQU 


8+OFST 


EQU 


34+OFST 


EQU 


22+OFST 


EQU 


7+OFST 


EQU 


5+OFST 


EQU 


6+OFST 


EQU 


0+OFST 


EQU 


0D7H 


EQU 


1+OFST 


EQU 


0E2H 


EQU 


0B9H 


EQU 


15+OFST 


EQU 


lO+OFST 


EQU 


11+OFST 


EQU 


32+OFST 


EQU 


43+OFST 


EQU 


00 FH 
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LOC OBJ 



LINE 



SOURCE 



OOOB 
0022 
002D 
00D5 
0099 
002F 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0084 
0000 
0081 
OOOE 
003A 
0039 
0034 
0033 
0038 
0036 
00E3 
0029 
0014 
009A 
OOCl 
OOIE 
002E 
OOOC 
00A2 
00A3 
OOOD 
00D6 
00 B A 
OOEl 
OOBB 
0086 
OOID 
OOIC 
0020 



E071 OA 

E072 5F 

E073 52 

E074 53 

E075 51 



498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 



OR TOKE 

ORr_TOKE 

POP_TOKE 

PROGRAM_TOKE 

PSW_TOKE 

PUSH_TOKE 

RO TOKE 

R1_T0KE 

R2_T0KE 

R3_T0KE 

R4_T0KE 

R5_T0KE 

R6_T0KE 

R7_T0KE 

RBIT_TOKE 

RBS_TOKE 

RBYTE_TOKE 

RESET TOKE 

RET_T^KE 

RETI_TOKE 

RL_TOKE 

RLC_TOKE 

RR_TOKE 

RRC_TOKE 

SAVE TOKE 

SETB~TOKE 

SJMP_TOKE 

SP TOKE 

STrp_TOKE 

SUBB_TOKE 

SWAP_TOKE 

TILL TOKE 

TMO_TOKE 

TMl TOKE 

T0_TOKE 

TOP_TOKE 

TRANSFER TOKE 

UPL0AD_TTTKE 

VERIFY_TOKE 

XBYTE_TOKE 

XCH_TOKE 

XCHD_TOKE 

XRL TOKE 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



OBH 

18+OFST 

29+OFST 

0D5H 

099H 

31+OFST 

090H 

091H 

092H 

093H 

094H 

095H 

096H 

097H 

084H 

000 

081H 

OOEH 

42+OFST 

41+OFST 

36+OFST 

35+OFST 

40+OFST 

38+OFST 

0E3H 

25+OFST 

4+OFST 

09AH 

OCIH 

14+OFST 

30+OFST 

OOCH 

0A2H 

0A3H 

OODH 

0D6H 

OBAH 

OEIK 

OBBH 

08 6 H 

13+OFST 

12+OFST 

16+OFST 



***** TOKEN TABLE ***** 

TOKTBL must match entry for entry with KEYTAB so that the ASCII 
for each token will match the token. 

tOKTBL: 



DB 


ATA TOKE 


DB 


ATDPTR TOKE 


DB 


ATRO TOKE 


DB 


ATRl TOKE 


DB 


A TOKE 
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LOC 


OBJ 


E076 


5C 


E077 


88 


E078 


12 


E079 


98 


E07A 


24 


E07B 


23 


E07C 


13 


E07D 


21 


E07E 


BO 


E07F 


9B 


E080 


DO 


E081 


89 


E082 


5E 


E083 


D2 


E084 


80 


E085 


19 


^E086 


2A 


|e087 


ZB 


E088 


B8 


E089 


2C 


E08A 


B8 


E08B 


D3 


E08C 


82 


E08D 


35 


E08E 


31 


E08F 


25 


E090 


EO 


E091 


Al 


E092 


09 


E093 


08 


E094 


09 


E095 


C2 


E096 


37 


^E097 


27 


Pe098 


28 


E099 


18 


E09A 


32 


E09B 


26 


E09C 


17 


E09D 


15 


E09E 


16 


E09F 


10 


EOAO 


D7 


EOAl 


11 


E0A2 


E2 


E0A3 


B9 


E0A4 


IF 


E0A5 


lA 


E0A6 


IB 


E0A7 


30 


^E0A8 


3B 


kE0A9 


OF 


^EOAA 


OB 


EOAB 


D4 


EOAC 


22 



LINE 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 



SOURCE 



DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 



AB_T0KE 

ABR_TOKE 

ACALL_TOKE 

ACC_TOKE 

ADD_TOKE 

ADDC_TOKE 

AJMP_TOKE 

ANL_TOKE 

ASM_TOKE 

B_TOKE 

BAUD_TOKE 

BR_TOKE 

C_TOKE 

CAUSE_TOKE 

CBYTE_TOKE 

CJNE_TOKE 

CLR_TOKE 

CPL_TOKE 

DASM_TOKE 

DA_TOKE 

DASM_TOKE 

DATA_TOKE 

DBYTE_TOKE 

DEC_TOKE 

DIV_TOKE 

DJNZ_TOKE 

DOWNLOAD_TOKE 

DPTR_TOKE 

FROM_TOKE 

FOREVER_TOKE 

FROM_TOKE 

GO_TOKE 

INC_TOKE 

JB_TOKE 

JBC_TOKE 

JC TOKE 

JMF_TOKE 

JNB_TOKE 

JNC_TOKE 

JNZ_TOKE 

JZ_TOKE 

LCALL_TOKE 

LIST_TOKE 

LJMP_TOKE 

LOAD_TOKE 

MODE_TOKE 

MOV_TOKE 

MOVC_TOKE 

MOVX_TOKE 

MUL_TOKE 

NOP_TOKE 

ON_TOKE 

OR_TOKE 

ORG_TOKE 

ORL TOKE 
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LOC 


OBJ 


LOAD 


AO 


EOAE 


2D 


EOAF 


D5 


EOBO 


99 


EOBl 


2F 


E0B2 


90 


E0B3 


91 


E0B4 


92 


E0B5 


93 


E0B6 


94 


E0B7 


95 


E0B8 


96 


E0B9 


97 


EOBA 


84 


EOBB 


00 


EOBC 


81 


EOBD 


OE 


EOBE 


3A 


EOBF 


39 


EOCO 


34 


EOCl 


33 


E0C2 


38 


E0C3 


36 


E0C4 


E3 


E0C5 


29 


E0C6 


14 


E0C7 


9A 


E0C8 


CI 


E0C9 


IE 


EOCA 


2E 


EOCB 


OC 


EOCC 


OC 


EOCD 


A2 


EOCE 


A3 


EOCF 


OD 


EODO 


D6 


EODl 


BA 


E0D2 


El 


E0D3 


BB 


E0D4 


86 


E0D5 


ID 


E0D6 


IC 


E0D7 


20 



LINE 



SOURCE 



608 


DB 


PC TOKE 


609 


DB 


POP TOKE 


610 


DB 


PROGRAM TOKE 


611 


DB 


PSW TOKE 


612 


DB 


PUSH TOKE 


613 


DB 


RO TOKE 


614 


DB 


Rl TOKE 


615 


DB 


R2 TOKE 


616 


DB 


R3 TOKE 


617 


DB 


R4 TOKE 


618 


DB 


R5 TOKE 


619 


DB 


R6 TOKE 


620 


DB 


R7 TOKE 


621 


DB 


RBIT TOKE 


622 


DB 


RBS TOKE 


623 


DB 


RBYTE TOKE 


624 


DB 


RESET TOKE 


625 


DB 


RET TOKE 


626 


DB 


RETI TOKE 


627 


DB 


RL TOKE 


628 


DB 


RLC TOKE 


629 


DB 


RR TOKE 


630 


DB 


RRC TOKE 


631 


DB 


SAVE TOKE 


632 


DB 


SETB TOKE 


633 


DB 


SJMP TOKE 


634 


DB 


SP TOKE 


635 


DB 


STEP TOKE 


636 


DB 


SUBB TOKE 


637 


DB 


SWAP TOKE 


638 


DB 


TILL TOKE 


639 


DB 


TILL TOKE 


640 


DB 


TMO TOKE 


641 


DB 


TMl TOKE 


642 


DB 


TO TOKE 


643 


DB 


TOP TOKE 


644 


DB 


TRANSFER TOKE 


645 


DB 


UPLOAD TOKE 


646 


DB 


VERIFY TOKE 


647 


DB 


XBYTE TOKE 


648 


DB 


XCH TOKE 


649 


DB 


XCHD TOKE 


650 


DB 


XRL TOKE 


651 


;***** END OF 


TOKTBL ***** 


652 +1 


$EJECT 
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LOC OBJ 



LINE 



-SOURCE 







653 










654 










655 


;***** KEY WORD 


TABLE 






656 






E0D8 


40412020 


657 


KEYTAB: DB 


'@A ' 


EODC 


40445054 


658 


DB 


'@DPT' 


EOEO 


40523020 


659 


DB 


'@R0 ' 


E0E4 


40523120 


660 


DB 


'@R1 ' 


E0E8 


41202020 


661 


DB 


'A 


EOEC 


41422020 


662 


DB 


'AB ' 


EOFO 


41425220 


663 


DB 


'ABR ' 


E0F4 


4143414C 


664 


DB 


'ACAL' 


E0F8 


41434320 


665 


DB 


'ACC ' 


EOFC 


41444420 


666 


DB 


'ADD ' 


ElOO 


41444443 


667 


DB 


'ADDC 


E104 


414A4D50 


668 


DB 


'AJMP' 


£108 


414E4C20 


669 


DB 


'ANL ' 


iioc 


41534D20 


670 


DB 


'ASM ' 


riio 


42202020 


671 


DB 


'B 


E114 


42415544 


672 


DB 


'BAUD' 


E118 


42522020 


673 


DB 


'BR ' 


EllC 


43202020 


674 


DB 


'C 


^120 


43415553 


675 


DB 


'CAUS 


E124 


43425954 


676 


DB 


'CBYT 


E128 


434A4E45 


677 


DB 


'CJNE 


E12C 


434C5220 


678 


DB 


'CLR 


E130 


43504G20 


679 


DB 


'CPL 


E134 


44202020 


680 


DB 


'D 


E138 


44412020 


681 


DB 


'DA 


E13C 


4441534D 


682 


DB 


'DASM 


E140 


44415441 


683 


DB 


'DATA 


E144 


44425954 


684 


DB 


'DBYT 


E148 


44454320 


685 


DB 


'DEC 


||14C 


44495620 


686 


DB 


'DIV 


■l50 


444A4E5A 


687 


DB 


'DJNZ 


fl54 


444F574E 


688 


DB 


'DOWN 


E158 


44505452 


689 


DB 


'DPTR 


E15C 


46202020 


690 


DB 


'F 


E160 


464F5245 


691 


DB 


'FORE 


E164 


46524F4D 


692 


DB 


'FROM' 


E168 


474F2020 


693 


DB 


'GO 


E16C 


494E4320 


694 


DB 


'INC 


E170 


4A422020 


695 


DB 


'JB 


E174 


4A424320 


696 


DB 


'JBC 


E178 


4A432020 


697 


DB 


'JC 


E17C 


4A4D5020 


698 


DB 


'JMP 


E180 


4A4E4220 


699 


DB 


'JNB 


E184 


4A4E4320 


700 


DB 


'JNC 


E188 


4A4E5A20 


701 


DB 


'JNZ 


E18C 


4A5A2020 


702 


DB 


'JZ 


E190 


4C43414C 


703 


DB 


'LCAL 


kl94 


4C495354 


704 


DB 


'LIST 


P98 


4C4A4D50 


705 


DB 


'LJMP 


^19C 


4C4F4144 


706 


DB 


'LOAD 


ElAO 


4D4F4445 


707 


DB 


'MODE 



;10 



;15 



:20 



;25 



;30 



:35 



;40 



;45 



;50 
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LOG OBJ 



LINE 



SOURCE 



E1A4 
E1A8 
ElAC 
ElBO 
E1B4 
E1B8 
ElBC 
EICO 
E1C4 
E1C8 
EICC 
EIDO 
E1D4 
E108 
EIDC 
ElEO 
E1E4 
E1E8 
ElEC 
EIFO 
E1F4 
E1F8 
EIFC 
E200 
E204 
E208 
E20C 
E210 
E214 
E218 
E21C 
E220 
E224 
E228 
E22C 
E230 
£234 
E238 
E23C 
E240 
E244 
E248 
E24C 
E250 
£254 
£258 
E25C 
£260 
£264 
£268 
E26C 
£270 



4D4F5620 
4D4F5643 
404F5658 
4D554C20 
4E4F5020 
4F4E2020 
4F522020 
4F524720 
4F524C20 
50432020 
504F5020 
50524F47 
50535720 
50555348 
52302020 
52312020 
52322020 
52332020 
52342020 
52352020 
52362020 
52372020 
52424954 
52425320 
52425954 
52455345 
52455420 
52455449 
524C2020 
524C4320 
52522020 
52524320 
53415645 
53455442 
534A4D50 
53502020 
53544550 
53554242 
53574150 
54202020 
54494C4C 
544D3020 
544D3120 
544F2020 
544F5020 
5452414E 
55504C4F 
56455249 
58425954 
58434820 
58434844 
58524C20 



708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 +1 



DB 


'MOV ' 


DB 


'MOVC 


DB 


'MOVX' 


DB 


'MUL ' 


DB 


'NOP ' 


DB 


'ON ' 


DB 


'OR ' 


OB 


'ORG ' 


DB 


'ORL ' 


DB 


'PC ' 


DB 


'POP ' 


OB 


'PROG' 


DB 


'PSW ' 


DB 


'PUSH' 


DB 


'RO ' 


DB 


'Rl ' 


DB 


'R2 ' 


DB 


'R3 ' 


DB 


'R4 ' 


DB 


'R5 ' 


OB 


'R6 ' 


DB 


'R7 ' 


DB 


'RBIT' 


DB 


'RBS ' 


DB 


'RBYT' 


DB 


•RESE' 


DB 


'RET ' 


DB 


'RETI' 


DB 


'RL ' 


OB 


'RLC ' 


DB 


'RR ' 


OB 


'RRC ' 


DB 


'SAVE' 


DB 


'SETB' 


DB 


'SJMP' 


DB 


'SP ' 


DB 


'STEP' 


DB 


'SUBB' 


DB 


^SWAP' 


DB 


'T 


DB 


'TILL' 


DB 


'TMO ' 


DB 


'TMl • 


DB 


'TO ' 


DB 


'TOP 


DB 


'TRAN 


DB 


'UPLO 


DB 


'VERI 


DB 


'XBYT 


DB 


'XCH ' 


DB 


'XCHO 


DB 


'XRL 


END OF 


KEYTAB ■* 



:55 



;60 



;65 



;70 



;75 



;80 



:85 



i90 



;95 



;100 



$EJECT 
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LOC OBJ 



E274 12ECE1 



E277 758107 
:27A C201 
|27C 12E3BA 
[27F 12E386 
E282 90A000 
E285 EO 
E286 90B0F6 
E289 7409 
FO 



E28 



E28C 


90B0F1 


E28F 


E4 


E290 


FO 


E291 


7A83 


E293 


12E62 5 


E296 


12E64C 


E299 


7A00 


£29B 


12E638 


l29E 


7582FC 


PE2A1 


7404 


E2A3 


FO 


E2A4 


12F229 



LINE 

762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 



SOURCE 



NAME: POWER_ON 

ABSTRACT: This routine initializes the breakpoint RAM, I/O 

channels, output buffer flag, TOP value, break status, user 
DPTR, B register and user PC. It sets the baud rate to 2400 
and the GO condition to forever. At the end, it jumps to 
BREAK which sets up the user area and jumps to SIGN_ON 
since the step flag has been cleared. 

INPUTS: None 

OUTPUTS: LSTFLG, GR, UPI DATA_IMAGE, BAUDKEY, BAUD_HIGH, BAUD_LOW, 

ERRNUM, TOP STORE, MON_FLAG, BREAK_STATUS , CAUSE_IMAGE, ASM_PC_LOW. 
ASM_PC_HIGH, DPTR, B, 2 stack locations, CHRCNT, LNLGTH, CHARIN, 
MAXNUM_FLG 

VARIABLES MODIFIED: SP, LSTFLG, DPTR, A, PARAMl, DPL, ERRNUM, 
ASM_PC_HIGH, ASM_PC_LOW, CAUSE_IMAGE, DPH, B 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: CHECK_EPROMS , INIT_IO, UPI_CMD, 
UPI_IN, UPI_OUT, SET_BAUD, BREAK 

******************************************************************** 

POWER_ON: 

CALL 



CLRBRK 



MOV SP, #071-1 

CLR LSTFLG 

CALL CHECK_EPROMS 

CALL INIT_IO 

MOV DPTR,#UPI_DATA 

MOVX A,@DPTR 

MOV DPTR,#(RAMOFF+GR) 

MOV A,#NO_BREAK 

MOVX @DPTR,A 



MOV DPTR,#(RAMOFF+UPI_DATA_IMAGE) 

CLR A 

MOVX {3DPTR,A 

MOV PARAMl, #TOP_PORT 

CALL UPI_CMD 

CALL UPI_IN 

MOV PARAMl, #00H 

CALL UPI_OUT 

MOV DPL,#BAUDKEY 

MOV A,#04H 

MOVX @DPTR,A 

CALL SET BAUD 



;Clear breakpoint RAM and 
;remove Monitor from over- 
;laying user Config. Memory 



;Verify integrity of Monitor code. 



;Initialize the 10 channel and 
;copy break enable image 
;into hardware 

Sets GO FOREVER as the power up 

Default condition 

Clear the users output buffer flag. 



; Initial ize TOP port. 

;Ignore current port value. 
;Reselect the console. 

;Set up the initial baud rate 
;for 2400. 
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LOC 


OBJ 


LINE 


E2A7 


90B0F7 


817 


E2AA 


7424 


818 


E2AC 


FO 


819 


E2AD 


E4 


820 


E2AE 


F543 


821 


E2B0 


A3 


822 


E2B1 


FO 


823 


E2B2 


A3 


824 


E2B3 


FO 


825 


E2B4 


A3 


826 


E2B5 


FO 


827 


E2B6 


A3 


828 


E2B7 


FO 


829 


E2B8 


F54B 


830 


E2BA 


F54C 


831 


E2BC 


F560 


832 


E2BE 


F582 


833 


E2C0 


F583 


834 


E2C2 


F5D0 


835 


E2C4 


F5F0 


836 


E2C6 


COEO 


837 


E2C8 


COEO 


838 


E2CA 


0103 


839 
840 



SOURCE 



MOV 


DPTR,#(RAMOFF+BAUD 


_HIGH 


MOV 


A,#24H 




MOVX 


@DPTR,A 




CLR 


A 




MOV 


ERRNUM,A 




INC 


DPTR 




MOVX 


@DPTR,A 




INC 


DPTR 




MOVX 


@DPTR,A 




INC 


DPTR 




MOVX 


(aDPTR,A 




INC 


DPTR 




MOVX 


@DPTR,A 




MOV 


ASM PC HIGH, A 




MOV 


ASM PC LOW, A 




MOV 


CAUSE IMAGE, A 




MOV 


DPL,A 




MOV 


DPH,A 




MOV 


PSW,A 




MOV 


B,A 




PUSH 


ACC 




PUSH 


ACC 




JMP 


BREAK 





;Firmwdre checksum error 
;Point to BAUD_LOW 

;Point to TOP_STORE and zero. 

;Point to MON_FLAGS and zero 

;Point to BREAK_STATUS 

;Set it to the power on flag 

;Zero out the asm PC 



;Clear DPTR and B so that 

;break will report them correctly 

;Simulate the user PC in the stack 



+1 $EJECT 
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LOC OBJ 



E2CC 7AE3 

E2CE 7B6B 

E2D0 12E9FF 

E2D3 12E3B0 



LINE 

841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 +1 



SOURCE 
****************************************************************** 

NAME: SIGN_ON 

ABSTRACT: Puts sign on message on the display and waits for 
a character to be input. 

INPUTS: None 

OUTPUTS: None 

VARIABLES MODIFIED: PARAMl, PARAM2 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: I PR INT_STR ING , I WAIT_FOR_USER 

**************************************************************** 



SIGN ON: 



$EJECT 



MOV PARAM1,#HIGH(SIGN_0N_MSG) 

MOV PARAM2,#L0W(SIGN_0N_MSG) 

CALL IPRINT_STRING 

CALL IWAIT FOR USER 
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LOC OBJ 



E2D6 


758107 


E2D9 


755200 


E2DC 


12E386 


E2DF 


12E8BC 


E2E2 


B40702 


E2E5 


80EF 


E2E7 


90E30E 


E2EA 


7A1F 


E2EC 


12E2F1 


E2EF 


80E5 


E2F1 


E4 


E2F2 


93 


E2F3 


B5480D 


E2F6 


E4 


E2F7 


A3 


E2F8 


93 


E2F9 


F5F0 


E2FB 


E4 


E2FC 


A3 


E2FD 


93 


E2FE 


COEO 


E300 


COFO 


E302 


22 


E303 


A3 


E304 


A3 


E305 


A3 


E306 


DAE9 


E308 


754302 


E30B 


02E3E4 


E30E 


88 


E30F 


EBC7 


E311 


98 


E312 


ED2A 



LINE 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 



SOURCE 

NAME: START 

ABSTRACT: This routine initializes the stack and gets tokens 

until an EOL is encountered. It then decodes the first token and 
branches to appropriate command routine. 

INPUTS: None 

OUTPUTS: LINE_START, SP, TOKSTR 

VARIABLES MODIFIED: PARAMl, PARAM2, DPTR, A, SP, B, 

ERROR EXITS: 02H (INVALID COMMAND) 

SUBROUTINE ACCESSED DIRECTLY: IGETOKE, INIT_IO, lERROR 



START: MOV SP,#STACK 

LINE_START,#OOH ;Default beginning of line 

INIT_IO ;Reset UPI 

IGETOKE 

A,#EOL_TOKE,DECODE_CALL ;If EOL, branch to cmd routine 

START 



MOV 

CALL 

CALL 

CJNE 

JMP 

DECODE_CALL: 
MOV 
MOV 
CALL 
JMP 

DECODE: CLR 
MOVC 
CJNE 
CLR 
INC 
MOVC 
MOV 
CLR 
INC 
MOVC 
PUSH 
PUSH 
RET 

NEXT_ENTRY: 
INC 
INC 
INC 
DJNZ 
MOV 
JMP 



DPTR,#CMDTAB 

PARAMl, #((SIGN_0N_MSG-CMDTAB)/3);Length of command table 

DECODE 

START 

A 

A,@A+DPTR 

A, TOKSTR, NEXT_ENTRY 

A 

DPTR 

A,(aA+DPTR 

B,A 

A 

DPTR 

A,(9A+DPTR 

ACC 



;Check next entry if no match 
;Get high byte of cmd addr 

;Get low byte of cmd addr 
i 'Return ' to cmd addr 



CMDTAB: 



DB 
DW 
DB 
DW 



DPTR 

DPTR 

DPTR 

PARAMl, DECODE 

ERRNUM,#02H 

lERROR 

ABR_TOKE 
BR_CMD 
ACC_TOKE 
ACC CMD 



Skip over 3 byte entries 
Check for end of table 
Invalid command 
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LOC 


OBJ 


E314 


BO 


E315 


F581 


E317 


9B 


E318 


ED3C 


E31A 


DO 


E31B 


FIFD 


E31D 


89 


E31E 


EBC7 


E320 


D2 


E321 


F2B8 


E323 


80 


E324 


EA5B 


E326 


B8 


E327 


F584 


E329 


82 


E32A 


EA5B 


E32C 


EO 


E32D 


F4F9 


E32F 


Al 


E330 


ED7D 


E332 


C2 


E333 


FIOF 


E335 


D7 


E336 


FICD 


E338 


E2 


E339 


F44D 


E33B 


B9 


E33C 


F571 


E33E 


AO 


E33F 


ED5F 


E341 


D5 


E342 


F56C 


E344 


99 


E345 


ED30 


E347 


84 


E348 


EA5B 


E34A 


81 


E34B 


EA5B 


E34D 


E3 


E34E 


F4B7 


E350 


9A 


E351 


ED36 


E353 


CI 


E354 


EFDC 


E356 


A2 


E357 


ED86 


E359 


A3 


E35A 


ED8F 


E35C 


D6 


E35D 


F278 


E35F 


BA 


E360 


F567 


E362 


El 


E363 


F50F 


E365 


BB 



LINE 

920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
94 7 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 



SOURCE 



DB 


ASM TOKE 


DW 


ASMBASE 


DB 


B TOKE 


DW 


B CMD 


DB 


BAUD TOKE 


DW 


BAUD CMD 


DB 


BR TUKE 


DW 


BR CMD 


DB 


CAUSE TOKE 


DW 


CAUSE CMD 


DB 


CBYTE TOKE 


DW 


MEMORY CMD 


DB 


DASM TOKE 


DW 


(ASMBASE + 3) 


DB 


DBYTE TOKE 


DW 


MEMORY CMD 


DB 


DOWNLOAD TOKE 


DW 


DOWNLOAD CMD 


DB 


DPTR TOKE 


DW 


DPTR CMD 


DB 


GO TOKE 


DW 


GO CMD 


DB 


LIST TOKE 


DW 


LIST CMD 


DB 


LOAD TOKE 


DW 


LOAD CMD 


DB 


MODE TOKE 


DW 


MODE CMD 


DB 


PC TUKE 


DW 


PC CMD 


DB 


PRITGRAM TOKE 


DW 


PROGRAM CMD 


DB 


PSW TOKE 


DW 


PSW CMD 


DB 


RBIT TOKE 


DW 


MEMORY CMD 


DB 


RBYTE TOKE 


DW 


MEMORY CMD 


DB 


SAVE TUKE 


DW 


SAVE CMD 


DB 


SP TOKE 


DW 


SP CMD 


DB 


STEP TOKE 


DW 


STEP CMD 


DB 


TMO TOKE 


DW 


TMO CMD 


DB 


TMl TOKE 


DW 


TMl CMD 


DB 


TOP TOKE 


DW 


TOP CMD 


DB 


TRANSFER TOKE 


DW 


TRANSFER CMD 


DB 


UPLOAD TUKE 


DW 


UPLOAD CMD 


DB 


VERIFY TOKE 



lAssemble command. 



;Disassemble command. 
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LOC OBJ 



LINE 



SOURCE 



E366 


F562 


975 


DW 


E368 


86 


976 


DB 


E369 


EA5B 


977 


DW 






978 


. **•***••** 






979 


; 






980 


SIGN ON MSG 


E36B 


lA 


981 


DB 


E36C 


OD 






E36D 


OA 






E36E 


53444B2D 






E372 


3531204D 






E376 


4F4E4954 






E37A 


4F522056 






E37E 


45522E20 






E382 


312E3033 







VERIFY_CMD 
XBYTE_TOKE 
MEMORY_CMD 



26, CR,LF, ('SDK-51 MONITOR VER. 1.03' 



982 +1 $EJECT 
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LOC OBJ 



m 



E386 


C204 


E388 


E4 


E389 


F551 


E38B 


F554 


E38D 


755020 


E390 


7A04 


E392 


12E625 


E395 


7A03 


E397 


12E625 


E39A 


7A08 


E39C 


12E638 


E39F 


7A09 


E3A1 


12E638 


E3A4 


7A00 


|E3A6 


12E625 


E3A9 


7A00 


E3AB 


7B70 


E3AD 


02EA45 



LINE 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 +1 



SOURCE 

NAME: INIT_IO 

ABSTRACT: This routine initialized the UPI hardware ports 
and resets the line buffer. 

INPUTS: None 

OUTPUTS: CHRCNT, LNLGTH, CHARIN, MAXNUM_FLAG 

VARIABLES MODIFIED: A, CHRCNT, CHARIN, PARAMl , PARAM2, 
LNLGTH, PSW 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: UPI CMD, ITIME 



INIT 10 



$EJECT 



:CLR 
CLR 
MOV 
MOV 
MOV 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
MOV 
MOV 
JMP 



MAXNUM_ 

A 

CHRCNT, 

LNLGTH, 

CHARIN, 

PARAMl, 

UPI_CMD 

PARAMl 

UPI_CMD 

PARAMl 

UPI_OUT 

PARAMl, 

UPI_OUT 

PARAMl, 

UPI_CMD 

PARAMl, 

PARAM2 

ITIME 



FLAG 

A 

A 

#' ' 

#RESET_CMD 

#GR_PORT 

#CLR_BRK_LATCHES 

#NO_BREAK 

#SELECT_CON 

#00H 
#70H 



;Delay approx. one UPI display scan (11.2ms] 
ISO the display won't flicker on reset. 
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LOC OBJ 



/E3B0 90A000 

E3B3 EO 

E3B4 12E602 

E3B7 50FB 

E3B9 22 



LINE 

1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 +1 



SOURCE 
****************************************************************** 

NAME: (I)WAIT_FOR_USER 

ABSTRACT: Clears keyboard closures, waits for next keyboard 

entry and then returns. The entry causing the return is NOT 
read, therefore, the UPI will not overwrite it until it is 
read by some other procedure. 

INPUTS: None 

OUTPUTS: None 

VARIABLES MODIFIED:. DPTR, PARAMl , PARAM2 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: ITIME, ICSTS 

******************************************************************* 

IWAIT_FOR_USER: 

MOV DPTR,#UPI_DATA 

MOVX A,@DPTR ;Clear any keyboard closures 

IWAIT_F0R_USER_1: 

CALL ICSTS 

JNC IWAIT FOR USER 1 

RET 
$EJECT 



MCS-51 MACRO ASSEMBLER 



'SDK-51 MONITOR CODE INTEL PROPRIETARY VERS. #1.03' 



5,12,81 



PAGE 25 



LOC OBJ 



E3BA 


90E000 


/E3BD 


7E00 


E3BF 


E4 


E3C0 


93 


E3C1 


2E 


E3C2 


FE 


E3C3 


A3 


E3C4 


E583 


E3C6 


70F7 


E3C8 


EE 


E3C9 


6018 


lyCB 


7AE4 


BcD 


7B26 


PCF 


12E9FF 


E3D2 


7A0O 


E3D4 


12E7Fy 


E3D7 


12E5E6 


E3DA 


7AE4 


E3DC 


7B2D 


E3DE 


12E9FF 


E3E1 


80FE 


E3E3 


22 



LINE 

1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 +1 



SOURCE 



******-*^ 



t********************************************************* 



NAME: CHECK_EPROMS 

ABSTRACT: This routine calculates the checksum for both 
EPROMS. If not ok, print an error message and lock up 
forever. 

INPUTS: None 

OUTPUTS: None 

VARIABLES MODIFIED: DPTR, CHECK_SUM, PARAMl, PARAM2, A 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: I PR I NT_STR I NG , ILSTBYT, SPACCO 



CHECK_EPROMS: 
MOV 
MOV 

CHECK_LOOP: 
CLR 
MOVC 
ADD 
MOV 
INC 
MOV 
JNZ 
MOV 
JZ 
MOV 
MOV 
CALL 
MOV 
CALL 
CALL 
MOV 
MOV 
CALL 
JMP 

CHECK_OUT_OK: 
RET 

$EJECT 



DPTR,#BASE 
CHECKSUM, #00H 



A,(9A + DPTR 

A, CHECKSUM 

CHECKSUM, A 

DPTR 

A,DPH 

CHECK_LOOP 

A, CHECKSUM 

CHECK_OUT_OK 

PARAMl, #HIGH(ERROR_MSG) 

PARAM2,#L0W(ERR0R_MSG) 

IPRINT_STRING 

PARAMl, #00H 

ILSTBYT 

SPACCO 

parami,#high(error_table; 
param2,#l0w(err0r_table) 
iprint string 



;Load dptr with beginning address 
;Clear scratch pad 



Get code byte 

Accumulate a running total 

Save it 

Point to next byte 

If address has not wrapped around, 

continue adding 

else, check tally 

If everthing adds up, return 



;Firmware checksum error 



;and hang up here 
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LOC OBJ 



E3E4 


7A07 


E3E6 


7B00 


E3E8 


i2EA45 


E3EB 


7186 


E3ED 


A201 


E3EF 


E4 


E3F0 


92E6 


E3F2 


FA 


E3F3 


12E625 


E3F6 


7AE4 


E3F8 


7B26 


E3FA 


12E9FF 


E3FD 


AA43 


E3FF 


12E7F9 


E402 


12E5E6 


E405 


755600 


E408 


90E42D 


E40B 


E543 


E40D 


B5560B 


E410 


AA83 


E412 


AB82 


E414 


12E9FF 


E417 


71B0 


E419 


41D6 


E41B 


E4 


E41C 


93 



LINE 

1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 

nil 

1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 



SOURCE 
hi $INCLUDE(:F1:UTILIT.INC) 



NAME: (I)ERROR 

ABSTRACT: This routine handles all error messages for the SDK-51 
except error 0. These are not intended to be a standard format 
for any other SDK product. After printing an error message, it 
waits for any console entry and then starts fresh from START. 
To find the routine which generates a particular error number, 
check the cross reference listing (XREF) at the back of this 
document for all uses of the variable name ERRNUM. 

INPUTS: ERRNUM, LSTFLG 

OUTPUTS: None 

VARIABLES MODIFIED: PARAMl, PARAM2, C, A, TEMPI 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: ITIME, INIT_IO, UPI_CMD, 
IPRINT_STRING, ILSTBYT, SPACCO, I WAIT_FOR_USER 

******************************************************************* 



TERROR: MOV 
MOV 
CALL 
CALL 
MOV 
CLR 
MOV 
MOV 
CALL 
MOV 
MOV 
CALL 
MOV 
CALL 
CALL 
MOV 
MOV 

ERROR_TEST: 
MOV 
CJNE 
MOV 
MOV 
CALL 
CALL 
JMP 

ERROR_BEGIN: 
CLR 
MOVC 

ERROR LOOP: 



PARAMl, #07H 

PARAM2,#00H 

ITIME 

INIT_IO 

C, LSTFLG 

A 

ACC.6,C 

PARAMl, A 

UPI_CMD 

PARAMl, #HIGH(ERROR_MSG) 

PARAM2,#L0W(ERR0R_MSG) 

IPRINT_STRING 

PARAMl, ERRNUM 

ILSTBYT 

SPACCO 

TEMPI, #00 

DPTR,#ERROR_TABLE 

A, ERRNUM 

A,TEMP1,ERR0R_BEGIN 

PARAMl, DPH 

PARAM2,DPL 

IPRINT_STRING 

IWAIT_FOR_USER 

START 



A,@A+DPTR 



;Wait for the completion of any 
;list activity before emptying usart 
;about 180ms 



;Select console with list status 



;Table search counter 
;Table ent ry 



; I s it this entry? 



;Yes, print message 

;No, get num of letters to skip 



t4 

m 
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LOC OBJ LINE SOURCE 

E41D A3 =1 1150 INC DPTR 

E41E D5E0FC =1 1151 DJNZ ACC , ERROR_LOOP 

E421 A3 =1 1152 INC DPTR ;Adjust addr of next table entry 

E422 0556 =1 1153 INC TEMPI ;Adjust table search counter 

E424 80E5 =1 1154 JMP ERROR_TEST 

=1 1155 ERROR_MSG: 

E426 06 =1 1156 DB 6 , CR , LF , ( ' ERR= ' ) 

E427 OD 

E428 OA 

E429 4552523D 

=1 1157 ERROR_TABLE: 

E42D OA =1 1158 DB 10, ('PROM CKSUM') ;Error #00 

E42E 50524F4D 

E432 20434B53 

E436 554D 
^E438 OC =1 1159 DB 12, ('INVALID WORD') ; 01 

^439 494E5641 

r43D 4C494420 
'"E441 574F5244 

E445 OF =1 1160 DB 15, ('INVALID COMMAND') ; 02 

E446 494E5641 

E44A 4C494420 

E44E 434F4D4D 

E452 414E44 

E455 OA =1 1161 DB 10, ('NUMBER REQ') ; 03 

E456 4E554D42 

E45A 45522052 

E45E 4551 

E460 OA =1 1162 DB 10, ('RETURN REQ') ; 04 

E461 52455455 

E465 524E2052 

E469 4551 

;46B 11 =1 1163 DB 17, ('EQUAL OR RTRN REQ') ; 05 

|46C 45515541 

r470 4C204F52 
'E474 20525452 

E478 4E205245 

E47C 51 

E47D 09 =1 1164 DB 09, ('COMMA REQ') ; 06 

E47E 434F4D4D 

E482 41205245 

E486 51 

E487 OD =1 1165 DB 13 ,(' PARTITION ADR') ; 07 

E488 50415254 

E48C 4954494F 

E490 4E204144 

E494 52 

E495 OF =1 1166 DB 15, ('RESET OR ON REQ') ; 08 

E496 52455345 

E49A 54204F52 
49E 204F4E20 

A2 524551 
'4A5 OF =1 1167 DB 15, ('DECIMAL NUM REQ') ; 09 

E4A6 44454349 

E4AA 4D414C20 



MCS-51 MACRO ASSEMBLER 



LOC OBJ 



E4AE 
E4B2 
E4B5 
E4B6 
E4BA 
E4BE 
E4C2 
E4C6 
E4C7 
E4CB 
E4CF 
E4D3 
E4D7 
E4D8 
E4DC 
E4E0 
E4E4 
E4E8 
E4E9 
E4ED 
E4F1 
E4F4 
E4F5 
E4F9 
E4FD 
E501 
E502 
E506 
E50A 
E50E 
E512 
E513 
E517 
E51B 
E51F 
E522 
E523 
E527 
E52B 
E52F 
E533 
E534 
E538 
E53C 
E540 
E544 
E545 
E549 
E54D 
E551 
E554 
E555 
E559 
E55D 
E561 



4E554D20 

524551 

10 

494C4C45 

47414C20 

42415544 

2056414C 

10 

42524B20 

454E4142 

4C205359 

4E544158 

10 

4E554D20 

4F522052 

45534554 

20524551 

OB 

544F5020 

29203746 

464648 

OC 

44495350 

4C415920 

4F4E4C59 

10 

554E4445 

46494E45 

44204F50 

434F4445 

OF 

41535345 

4D424C59 

2053594E 

544158 

10 

41445220 

4F555420 

4F462052 

414E4745 

10 

41445220 

4F555420 

4F462052 

414E4745 

OF 

41534D20 

50432029 

20304646 

464648 

OD 

46494C45 

20524420 

4F522057 

52 



LINE 



=1 116g 



=1 1169 



=1 1170 



=1 1171 



=1 1172 



=1 1173 



=1 1174 



=1 1175 



=1 1176 



=1 1177 



=1 117£ 



'SDK-51 MONITOR CODE INTEL PROPRIETARY VERS. #1.03' 
SOURCE 

DB 16, ( ' ILLEGAL BAUD VAL ' ) ; 

DB 16, ( 'BRK ENABL SYNTAX' ) ; 

DB 16, ( 'NUM OR RESET REQ' ) ; 

DB 11, ( 'TOP ) 7FFFH' ) ; 

DB 12, ( 'DISPLAY ONLY' ) ; 

DB 16, ( 'UNDEFINED OPCODE' ) ; 

DB 15, ( 'ASSEMBLY SYNTAX' ) ; 

DB 16, ( 'ADR OUT OF RANGE' ) ; 

DB 16, ( 'ADR OUT OF RANGE' ) ; 

DB 15, ( 'ASM PC ) OFFFFH' ) ; 

DB 13, ( 'FILE RD OR WR' ) ; 



8,12,81 



PAGE 



2^^ 



OA 



OB 



OC 



OD 



OE 



OF 



10 



11 



12 



13 



14 
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PAGE 



LOC 


OBJ 


LINE 


E562 


OC 


=1 1179 


E563 


4D454D4F 




E567 


52592057 




E56B 


52495445 




E56F 


10 


=1 1180 


E570 


45582041 




E574 


43524F53 




E578 


53204144 




E57C 


52203033 




E580 


10 


=1 1181 


E581 


4E4F2052 




E585 


414D2041 




E589 


54204144 




E58D 


52203033 




E591 


OE 


=1 1182 


E592 


43425954 




£596 


45205459 




|59A 


50452052 




%59E 


4551 




E5A0 


OB 


=1 1183 


E5A1 


4348414E 




E5A5 


4745204F 




E5A9 


4E4C59 




E5AC 


OE 


=1 1184 


E5AD 


43425920 




E5B1 


4F52204E 




E5B5 


554D2052 




E5B9 


4551 





DB 12, ( 'MEMORY WRITE') 

DB 16, ( 'EX ACROSS ADR 03' ) 

DB 16, ( 'NO RAM AT ADR 03' ) 

DB 14, ( 'CBYTE TYPE REQ' ) 

DB 11, ( 'CHANGE ONLY' ) 

DB 14,('CBY OR NUM REQ' ) 



15 



16 



17 



19 



lA 



=1 1185 +1 $EJECT 
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LOC 


OBJ 




LINE 






= ] 


1186 






= ; 


1187 






= : 


1188 






= : 


1189 






= : 


1190 






= : 


L 1191 






= 


L 1192 






= : 


1193 






= 1 


L 1194 






= ; 


L 1195 






= 


L 1196 






= ] 


[ 1197 






= 


L 1198 






= : 


I 1199 






= 


[ 1200 






= : 


[ 1201 






= 


L 1202 






= ; 


L 1203 






= ; 


L 1204 






= 


L 1205 


E5BB 


B40701 


= : 


[ 1206 


E5BE 


22 


= : 


L 1207 






= 


L 1208 


E5BF 


754304 


= 


L 1209 


E5C2 


61E4 


= : 


[ 1210 






= 


L 1211 +1 



SOURCE 

NAME: (I)EOL_CHECK 

ABSTRACT: This routine will check for a carraige return and error 
if one is not found. It returns to calling routine if one is. 

INPUTS: A (byte to be checked) 

OUTPUTS: None 

VARIABLES MODIFIED: ERRNUM 

ERROR EXITS: 04H (CARRAIGE RETURN EXPECTED) 

SUBROUTINES ACCESSED DIRECTLY: lERROR 

IEOL_CHECK: 

CJNE A,#EOL_TOKE,EOL_ERROR 

RET 
EOL_ERROR: 

MOV ERRNUM, #04H ;Carriage return expected 

JMP lERROR 
$EJECT 
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LOC 


OBJ 




LINE 






= 1 


1212 






= ] 


1213 






= ] 


1214 






= : 


1215 






=] 


1216 






= ; 


1217 






= : 


1218 






= : 


1219 






= ; 


1220 






=: 


1221 






= ; 


1222 






= : 


1223 






= ; 


1224 






= ; 


1225 






= 


L 1226 






= ; 


L 1227 


k 




= 


L 1228 


■ 




= : 


[ 1229 


W 




= : 


[ 1230 






= 


L 1231 


E5C4 


0545 


= ; 


L 1232 


E5C6 


E545 


= ' 


[ 1233 


/£5C8 


7002 


= 


L 1234 


E5CA 


0544 


= 


L 1235 






= 


L 1236 


E5CC 


22 


= 


L 1237 






= 


L 1238 


E5CD 


1545 


= 


L 1239 


E5CF 


E545 


= 


L 1240 


E5D1 


F4 


= 


L 1241 


E5D2 


7002 


= 


L 1242 


E5D4 


1544 


= 


L 1243 






= 


I 1244 


k5D6 


22 


= 


1 1245 


■ 




= 


1 1246 


w 




= 


1 1247 


E5D7 


E545 


= 


1 1248 


E5D9 


856245 


= 


1 1249 


E5DC 


F562 


= 


I 1250 


E5DE 


E544 


= 


1 1251 


E5E0 


856144 


= 


1 1252 


E5E3 


F561 


= 


1 1253 


E5E5 


22 


= 


1 1254 






= 


1 1255 +1 



SOURCE 
****************************************************************** 

NAME: INC_PNT/ DEC_PNT/ SWAP_PO I NTERS 

ABSTRACT: These are general purpose 16 bit arithmetic 

routines which will increment, decrement or swap pointers. 

INPUTS: PNTLOW, PNTHGH, PCNTLO, PCNTHI 

OUTPUTS: PNTLOW, PNTHGH, PNCTLO, PCNTHI 

VARIABLES MODIFIED: A, PNTLOW, PNTHGH, PCNTLO, PCNTHI 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 



******************************************************************* 

INC PNT:INC PNTLOW 

MOV A, PNTLOW 

JNZ INC_HIGH 

INC PNTHGH 
INC HIGH: 

RET 

DEC_PNT:DEC PNTLOW 

MOV A, PNTLOW 

CPL A 

JNZ DEC_HIGH 

DEC PNTHGH 
DEC_HIGH: 

RET 

SWAP POINTERS: 

MOV A, PNTLOW 

MOV PNTLOW, PCNTLO 

MOV PCNTLO, A 

MOV A, PNTHGH 

MOV PNTHGH, PCNTHI 

MOV PCNTHI, A 

RET 
$EJECT 
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LOC OBJ 



E5E6 7A20 
E5E8 02E638 



LINE 

1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 +1 



SOURCE 

NAME: SPACCO/ (I)CO 

ABSTRACT: Outputs a space to the system console, falls through 
to ICO then returns. 

INPUTS: PARAMl (ASCII character to be printed) 

OUTPUTS: None 

VARIABLES MODIFIED: PARAMl 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: UPI_OUT 

****************************************************************** 



SPACCO: MOV 
ICO: JMP 
$EJECT 



PARAMl, #' 
UPI OUT 
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LOC OBJ 



E5EB 12E64C 
,E&EE C2E7 
E5F0 B46100 

E5F3 4007 
E5F5 B47B00 

E5F8 5002 
E5FA C2E5 

E5FC B41B02 
E5FF 41D6 
^601 22 



LINE 

1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 +1 



SOURCE 

NAME: ICI 

ABSTRACT: Inputs an ASCII character from the system console, clears 
the parity bit and converts to upper case. If there is no 
user abort, it returns to caller. 

INPUTS: None 

OUTPUTS: A 

VARIABLES MODIFIED: A 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: IUPI_IN 

****************************************************************** 



ICI: 



UPI INA: 



UPI INB: 



UPI INR: 



UPI_INE: 
$EJECT 



CALL UPI_IN 

CLR ACC.7 

CJNE A,#'a' ,UPI_INA 

JC UPI INR 

CJNE A,#T'z'+l),UPI_INB 

JNC UPI_INR 

CLR ACC.5 

CJNE A,#ESC,UPI_INE 

JMP START 
RET 



;Clear parity bit 



Convert to upper case 
Abort if its an ESC key 
And return to the caller. 
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LOC OBJ 



E602 C082 
E604 C083 
E606 90A001 
E609 EO 
E60A 20E2FC 
E60D 13 
E60E D083 
E610 D082 
E612 22 



LINE 

1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 +1 



SOURCE 
******************************************************************** 



NAME: ICSTS 

ABSTRACT: Returns carry=l if there is a character waiting from 
the system console. If no character is ready, carry wi11 be 
cleared. CAUTION: this is not available for use except to the 
monitor itself. See UCSTS for a general purpose version of 
this routine. 

INPUTS: None 

OUTPUTS: Carry bit (C) 

VARIABLES MODIFIED: DPTR, A, C, 2 locations of the stack 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 

******************************************************************* 
ICSTS: 



CSTS 1: 



$EJECT 



PUSH 


DPL 


PUSH 


DPH 


MOV 


DPTR,#UPI CONTROL 


MOVX 


A,(9DPTR 


JB 


ACC.2,CSTS 1 


RRC 


A 


POP 


DPH 


POP 


DPL 


RET 





;Wait for status to be valid 
iRotate UPI OBF into CARRY 
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LOC OBJ 




LINE 




= • 


1344 




= : 


1345 




= : 


1346 




= ; 


L 1347 




= ] 


1348 




= ] 


[ 1349 




= ; 


L 1350 




= 


L 1351 




= : 


1352 




= 


L 1353 




= 


L 1354 




= 


L 1355 




= ; 


L 1356 




= 


L 1357 




= 


L 1358 




= 


L 1359 


i 


= : 


L 1360 


F 


= 


L 1361 




= ; 


L 1362 




= 


L 1363 




= ; 


L 1364 




= 


L 1365 




= 


L 1366 




= 


L 1367 




= 


L 1368 


E613 90B0F1 


= 


L 1369 


E616 EO 


= 


I 1370 


E617 33 


= 


L 1371 


E618 22 


= 


I 1372 




= 


I 1373 +1 



SOURCE 
***************************************************************** 

NAME: (U)CSTS 

ABSTRACT: This routine gets the console status bit from bit 7 
of the accumulator into carry. Carry = 1 if a character 
is present. 

Users writing application programs should use 

this routine instead of ICSTS. This reflects the buffered 

version of the console port. 

INPUTS: None 

OUTPUTS: Carry bit (C) 

VARIABLES MODIFIED: DPTR, A 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 

******************************************************************* 

UCSTS: MOV DPTR ,# (RAMOFF+UP I_DATA_I MAGE ) 

MOVX A,(3DPTR 

RLC A 

RET 
$EJECT 
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LOC OBJ 



E619 D113 

E61B 50FC 

E61D 90B0F1 

E620 EO 

E621 C2E7 

E623 FO 

E624 22 



LINE SOURCE 

****************************************************************** 

NAME: (U)CI 

ABSTRACT: This routine waits for the console status bit to 
indicate that a character is ready (C=l), inputs it from 
the console, clears the status bit and returns. 

Users writing application programs should use 

this routine instead of ICSTS. This reflects the buffered 

version of the console port. 

INPUTS: None 

OUTPUTS: UPI_DATA_IMAGE 

VARIABLES MODIFIED: DPTR, A 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: UCSTS 

UCI: CALL UCSTS 

JNC UCI 

MOV DPTR, #(RAMOFF+UPI_DATA_I MAGE) 

MOVX A,@DPTR 

CLR ACC.7 

MOVX @DPTR,A 

RET 
$EJECT 



1 1374 ; 


1 1375 ; 


1 1376 ; 


1 1377 ; 


1 1378 ; 


1 1379 ; 


1 1380 ; 


1 1381 ; 


1 1382 ; 


1 1383 ; 


1 1384 ; 


1 1385 ; 


1 1386 ; 


1 1387 ; 


1 1388 ; 


1 1389 ; 


1 1390 ; 


1 1391 ; 


1 1392 ; 


1 1393 ; 


1 1394 ; 


1 1395 ; 


1 1396 ; 


1 1397 ; 


1 1398 U 


1 1399 


1 1400 


1 1401 


1 1402 


1 1403 


1 1404 


1 1405 +1 1 
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LOC OBJ 



E625 C082 
E627 C083 
E629 90A001 

E62C EO 
E62D 5416 
E62F 70FB 
E631 EA 
E632 FO 
E633 D083 
E635 D082 
E637 22 



LINE 

1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 



SOURCE 
****************************************************************** 

NAME: (I)UPI_CMD 

ABSTRACT: Waits till the UPI is ready and then outputs a 
command to it. 

INPUTS: PARAMl=byte to be sent to UPI command port 

OUTPUTS: None 

VARIABLES MODIFIED: A, 2 locations in the stack 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 

****************************************************************** 
UPI CMD: 



UPI C 1: 



PUSH DPL 

PUSH DPH 

MOV DPTR,#UPI_CONTROL 

MOVX A,0DPTR 

ANL A,#16H 

JNZ UPI_C_1 

MOV A,PARAM1 

MOVX @DPTR,A 

POP DPH 

POP DPL 
RET 



;Save DPTR in the stack. 
;Point to UPI control channel 
;And wait for valid status. 

Then send out the command. 
Restore DPTR 
Return to caller. 



+1 $EJECT 
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E638 C082 

E63A C083 

E63C 90A001 

E63F EO 

E640 5416 

E642 70FB 

E644 A3 

E645 EA 

E646 FO 

E647 D083 

E649 D082 

E64B 22 



LINE 

1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 



SOURCE 

NAME: UPI_OUT 

ABSTRACT: Waits until the UPI is ready and then outputs data to it. 

INPUTS: PARAMl = data to be sent to UPI 

OUTPUTS: None 

VARIABLES MODIFIED: A, 2 locations on the stack 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 



UPI OUT:PUSH 
PUSH 
MOV 

UPI_0_1:M0VX 
ANL 
JNZ 
INC 
MOV 
MOVX 
POP 
POP 
RET 
Hi $EJECT 



DPL 

DPM 

DPTR,#UPI_CONTROL 

A,@DPTR 

A,#16H 

UPI_0_1 

DPTR 

A, PARAMl 

(aDPTR,A 

DPH 

DPL 



;Save DPTR in the stack. 



;Point to UPI control channel 
;and wait for valid status. 



;Point to data port 

;Restore DPTR 
;Return to call er. 
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E64C DI02 
E64E 50FC 
E650 C082 
E652 C083 
E654 90A000 
E657 EO 
E658 D083 
E65A D082 
E65C 22 



LINE 

1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 



SOURCE 
****************************************************************** 

NAME: UPI_IN 

ABSTRACT: Waits for a character from the UPI and returns it to 
the caller in the accumulator. 

INPUTS: None 

OUTPUTS: A 

VARIABLES MODIFIED: A, 2 locations of the stack 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: ICSTS 

* ******************************************************************** 

UPI IN: 

;Wait for character 



CALL 


ICSTS 


JNC 


UPI IN 


PUSH 


DPL 


PUSH 


DPH 


MOV 


DPTR,#UPI DATA 


MOVX 


A,ODPTR 


POP 


DPH 


POP 


DPL 


RET 





;Point to UPI data port 
;Get byte 
;Restore DPTR 

;and return to the caller 



+ 1 



REJECT 
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LOC 


OBJ 




LINE 






= 


L 1499 






= ; 


L 1500 






= : 


1501 






= 


L 1502 






=: 


1503 






= : 


L 1504 






= 


L 1505 






= ■ 


L 1506 






= : 


L 1507 






= : 


1508 






= ; 


1509 






= ; 


1510 






= 


L 1511 






= : 


1512 






= ; 


1513 






= ; 


1514 






= ; 


[ 1515 






= ; 


1516 






= 


L 1517 






= : 


L 1518 






= : 


L 1519 






= ] 


L 1520 


E65D 


200106 


= ] 


L 1521 


E660 


7AAC 


= 


L 1522 


E662 


B1E8 


= ; 


[ 1523 






= 


L 1524 


E664 


8085 


= : 


L 1525 






= : 


L 1526 


E666 


D102 


= : 


L 1527 


E668 


40FA 


= 


L 1528 


E66A 


22 


= : 


L 1529 






= 


L 1530 +1 



SOURCE 



"r************************* 



* *************************************** 

NAME: (I)CONTINUATION_LINE 

ABSTRACT: This routine looks for LIST=ON. If there is no user 
abort, it gets a character and returns. If LIST=RESET, 
it outputs a blinking comma to the display, discards the 
character, waits for the user to hit any key and returns. 

INPUTS: LSTFLG 

OUTPUTS: None 

VARIABLES MODIFIED: PARAMl 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: ICO, ICI, ICSTS 

ICONTINUATION_LINE: 

JB LSTFLG, DONT_WAIT 

MOV PARAMl, #( ' ,'+BLINK) 

CALL ICO 
CHECK_ESC: 

JMP ICI 
DONT_WAIT: 

CALL ICSTS 

JC CHECK_ESC 

RET 
$EJECT 
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LOC OBJ 



E56B 


E546 


E66D 


C2D5 


E66F 


02E676 


E672 


E546 


E674 


D2D5 


E676 


854483 


E679 


854582 


E67C 


B40012 


E67F 


30D50A 


E682 


EA 


E683 


FO 


E684 


E4 


E685 


93 


E686 


6A 


|687 


7041 


■689 


02E69D 


?68C 


E4 


E68D 


93 


E68E 


02E690 



LINE 

1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
15 70 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 



SOURCE 

NAME: (I)FETCH/(I)STORE 

ABSTRACT: 

This routine reads or writes one byte of data. SELECT indicates 
the type of memory operation to be performed. The following 
table lists the values of SELECT: 

OH) CBYTE - Program memory 

IH) RBYTE - Register memory 

2H) DBYTE - Internal data memory 

3H) Not used 

4H) RBIT - Bit memory 

5H) Not used 

6H) XBYTE - External data memory 
PNTLOW holds lower 8 bits of address 
PNTHGH Holds upper 8 bits of address and must be 

zeroed out if not used 
PARAMl holds value to be stored, is only used by STORE 
A holds the result of the fetch 
CBYTE does a read after write to verify byte value written, 

(i.e. detects writes to ROM). 

INPUTS: SELECT, PARAMl, PNTLO 

OUTPUTS: A, contents of memory being addressed 

VARIABLES MODIFIED: A, PSW, DPTR, ERRNUM, TEMPI, B, C 

ERROR EXITS: 12H (ADDRESS OUT OF RANGE ) 
15H (READ AFTER WRITE ERROR) 

SUBROUTINES ACCESSED DIRECTLY: lERROR 



****************************************************************** 



IFETCH: MOV A, SELECT 

CLR FO 

JMP MEMORY 

ISTORE: MOV A, SELECT 

SETB FO 

MEMORY: MOV DPH, PNTHGH 

MOV DPL, PNTLOW 

CJNE A,#(CBYTE_TOKE AND 07H), XBYTE 

JNB FO,C_READ 

MOV A, PARAMl 

MOVX (3DPTR,A 

CLR A 

MOVC A,(aA + DPTR 

XRL A, PARAMl 

JNZ FETERR 

JMP FETEND 

C_READ: CLR A 

MOVC A,(aA + DPTR 

JMP FETEND 



;Data value passed from calling routine 
;Zero = read memory 



;One = write memory 

;Put addr in data pointer 

;Jump if not CBYTE 

;Program memory write 

;Program memory read after write 

;Verify error if read doesn't match write 



;Program memory read 



MCS-51 MACRO ASSEMBLER 



'SDK-51 MONITOR CODE 



INTEL PROPRIETARY VERS. #1.03' 



^12, 81 



PAGE 



42 



LOC 


OBJ 


E691 


B4060C 


E694 


20D504 


E697 


EO 


E698 


02E69D 


E69B 


EA 


E69C 


FO 


E69D 


C2D5 


E69F 


22 


E6A0 


90B000 


E6A3 


754312 


E6A6 


E544 


E6A8 


7023 


E6AA 


E546 


E6AC 


B4010C 


E6AF 


E545 


E6B1 


30E719 


E6B4 


F582 


E6B6 


20D5E2 


E6B9 


80DC 


E6BB 


B40211 


E6BE 


E545 


E6C0 


20E70A 


E6C3 


F582 


E6C5 


20D5D3 


E6C8 


80CD 


E6CA 


754315 


E6CD 


61E4 


E6CF 


B404CB 


E6D2 


E545 


E6D4 


54F8 


E6D6 


20E705 


E6D9 


13 


E6DA 


03 


E6DB 


03 


E6DC 


2420 


E6DE 


2582 


E6E0 


F582 


E6E2 


20D513 


E6E5 


EO 


E6E6 


854556 


E6E9 


535607 


E6EC 


0556 


E6EE 


D55604 


E6F1 


5401 


E6F3 


80A8 


E6F5 


03 


E6F6 


80F6 


E6F8 


854556 


E6FB 


535607 


E6FE 


0556 


E700 


EO 


E701 


13 


E702 


D556FC 


E705 


8AF0 


E707 


A2F0 



LINE 



SOURCE 



1 1586 


XBYTE: 


CJNE 


A,#(XBYTE TOKE AND 07H), RBYTE 


1 1587 




JB 


FO, XWRITE 


1 1588 


XREAD: 


MOVX 


A,@DPTR 


1 1589 




JMP 


FETEND 


1 1590 


XWRITE: 


MOV 


A,PARAM1 


1 1591 


X WRT: 


MOVX 


@DPTR,A 


1 1592 


FETEND: 


CLR 


FO 


1 1593 




RET 




1 1594 


RBYTE: 


MOV 


DPTR,#RAMOFF 


1 1595 




MOV 


ERRNUM,#12H 


1 1596 




MOV 


A,PNTHGH 


1 1597 




JNZ 


ERR 


1 1598 




MOV 


A, SELECT 


1 1599 




CJNE 


A,#(RBYTE TOKE AND 07H), DBYTE 


1 1600 




MOV 


A,PNTLOW 


1 1601 




JNB 


ACC.7,ERR 


1 1602 




MOV 


DPL,A 


1 1603 




JB 


FO, XWRITE 


1 1604 




JMP 


XREAD 


1 1605 


DBYTE: 


CJNE 


A,#(DBYTE TOKE AND 07H),RBIT 


1 1606 




MOV 


A,PNTL0W 


1 1607 




JB 


ACC.7,ERR 


1 1608 




MOV 


DPL,A 


1 1609 




JB 


FO, XWRITE 


1 1610 




JMP 


XREAD 


1 1611 


FETERR: 


MOV 


ERRNUM,#15H 


1 1612 


ERR: 


JMP 


lERROR 


1 1613 


RBIT: 


CJNE 


A,#(RBIT TOKE AND 07H), FETEND 


1 1614 




MOV 


A,PNTLOW 


1 1615 




ANL 


A,#0F8H 


1 1616 




JB 


ACC. 7, SPEFUN 


-1 1617 




RRC 


A 


=1 1618 




RR 


A 


= 1 1619 




RR 


A 


= 1 1620 




ADD 


A,#20H 


=1 1621 


SPEFUN: 


ADD 


A,DPL 


=1 1622 




MOV 


DPL,A 


=1 1623 




JB 


FO, BITSTR 


=1 1624 




MOVX 


A,(3DPTR 


=1 1625 




MOV 


TEMPI, PNTLOW 


=1 1626 




ANL 


TEMPI, #07H 


=1 1627 




INC 


TEMPI 


=1 1628 


BITLOP: 


DJNZ 


TEMPI, BITROT 


=1 1629 




ANL 


A,#l 


=1 1630 




JMP 


FETEND 


=1 1631 


BITROT 


RR 


A 


=1 1632 




JMP 


BITLOP 


=1 1633 


BITSTR 


MOV 


TEMPI, PNTLOW 


=1 1634 




ANL 


TEMPI, #07H 


=1 1635 




INC 


TEMPI 


=1 1636 




MOVX 


A,(aDPTR 


=1 1637 


RHTROT 


RRC 


A 


=1 1638 




DJNZ 


TEMPI, RHTROT 


=1 1639 




MOV 


B,PARAM1 


=1 1640 




MOV 


C,B.O 



Check if external RAM was selected 
Jump to STORE if flag is set 
Load EXT RAM into ACC 

Load ACC with data to be output 
Output ACC to EXT RAM 
Clear f 1 ag 

Load DPTR with base addr of 8155 RAM 
Address out of range 

Error if address is not OOXXH 

Jump if not RBYTE 

Error if address is between and 7FH 

Jump to STORE if flag is set 

Exit from FETCH 

Jump if RBIT is selected 

Load ACC with low pointer 

Error if addr if between BOH and FFH 

Load DPL with new low point value 

Jump to STORE if flag is set 

Exit from FETCH 

Read after write did not match. 

Exit from FETCH/STORE 

Check if selector is for direct bit 

Load ACC with pointer 

Mask off lower 3 bits 

Jump to register bit array if over 7FH 



;Rotate ACC to obtain correct addr 

;Add offset of internal bit registers 

;Add offset to pointer 

;Load DPL with new addr 

;Jump to STORE if flag is set 

;Move INT RAM simulator byte into ACC 

;Move pointer into TEMPI 

;Mask lower 3 bits 

;For DJNZ 

;Loop unti 1 PARAM1=0 

;M ask lowest bit 

;Exit from FETCH 

;Rotate unti 1 PARAM1=0 

;Load TEMPI with pointer 

;Mask lower 3 bits 

;For DJNZ 

;Load ACC with data in RAM simulator 

;Rotate until pointer reaches zero 
;Move data to be output into B reg 
;Move into carry data to be output 
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LOC OBJ 



LINE 



SOURCE 



E709 


854556 


= 1 


1641 


E70C 


535607 


= 1 


1642 


E70F 


0556 


= 1 


1643 


E711 


33 


= 1 


1644 


E712 


D556FC 


= 1 


1645 


E715 


8085 


= 1 


1646 



LFTROT: 



=1 1647 +1 $EJECT 



MOV 


TEMPI. 


.PNTLOW 


ANL 


TEMPI, 


,#07H 


INC 


TEMPI 




RLC 


A 




DJNZ 


TEMPI. 


,LFTROT 


JMP 


X WRT 





;Loacl TEMPI with pointer 
;Mask lower 3 bits for counter 



;Rotate left until TEMPI reaches zero 
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LOC OBJ 



E717 7A0D 

E719 B1E8 

E71B 7A0A 

E71D B1E8 

E71F 22 



LINE 

1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 +1 



SOURCE 



*********** 



********************************************************* 



NAME: (I)NEWLINE 

ABSTRACT: Outputs a CR/LF to the console device. 

INPUTS: None 

OUTPUTS: None 

VARIABLES MODIFIED: PARAMl 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: ICO 

******************************************************************* 



INEWLINE: 

MOV 

CALL 

MOV 

CALL 

RET 

$EJECT 



PARAMl, #CR 
ICO 

PARAMl, #LF 
ICO 



;Output a CR 
;Output a LF 
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LOC OBJ 



LINE 



SOURCE 



m 



m 



E720 


EA 


E721 


B44002 


E724 


8005 


E726 


4003 


E728 


B45A01 


E72B 


B3 


E72C 


22 


E72D 


EA 


kE72E 


C3 


E72F 


9430 


E731 


B3 


E732 


5002 


E734 


9409 


E736 


22 


E737 


F12D 


E73 9 


4008 


E73B 


EA 


E73C 


9441 


E73E 


B3 


E73F 


5002 


E741 


9405 


E743 


22 


E744 


F120 


E746 


4002 


E748 


F12D 



1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 



NAME: AZTEST / NMTEST / HXTEST / ALFNUM 

ABSTRACT: AZTEST will check to see if the input character is 
an ASCII value between (P and Z. Carry is set if it is. 
NMTEST will check to see if the character was an ASCII number 
between and 9 and set carry if true. HXTEST will look for the 
ASCII representation of a hex value 0-9 and A-F and will set carry 
if true. ALFNUM will test for character to be alpha or numeric 
and set carry if true. 

INPUTS: PARAMl (byte to be checked) 

OUTPUTS: Carry bit (C) 

VARIABLES MODIFIED: A, C 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 

* ******************************************************************* 



AZTEST: MOV 
CJNE 
SJMP 
JC 

CJNE 
: CPL 
RET 
****** 



ZTEST: 



CARSET 
AZEND: 
. ***** 



NMTEST:MOV 
CLR 
SUBB 
CPL 
JNC 
SUBB 
: RET 
****** 



NUMEND 
. ***** 



A, PARAMl 
A,#'(3' ,ZTE 
CARSET 
CARSET 
A,#'Z' ,AZE 
C 

************** 
A, PARAMl 
C 

A,#('0') 
C 

NUMEND 
A,#('9'-'0 

************** 



HXTEST: CALL NMTEST 



JC 

MOV 

SUBB 

CPL 

JNC 

SUBB 

: RET 
****** 

ALFNUM: CALL 

JC 
CALL 



HEXEND 
. ***** 



HEXEND 

A, PARAMl 

A,#'A' 

C 

HEXEND 

A,#('F'-'A 

************** 
AZTEST 

ANEND 
NMTEST 



;Move char to be tested into ACC 
ST ; Carry will reset if char is <= '@' 

;Set carry if equal to '@' 

;Reset carry if char is <= '@' 
ND ;Carry will set if char is <= 'Z' 

;Set carry if equal to 'I' 

;Exit from AZTEST 
***************************************** 

;Move char into ACC 

;See if char is <= ASCII '0' 

;Carry left if false 
' ) ;See if char is > ASCII '9' 

;Exit from NMTEST 
***************************************** 

;See if char is between '0' and '9' 
;Extra level of subroutine added 
;Jump if char between '0' and '9' 
;Move char into ACC 
;See if char is > 'A' 



;Carry left if false 

;See if char is less than 'F' 

;Exit from HXTEST 
***************************************** 

;See if char is between '@' and 'Z' 
;Add extra level of subroutine 
; Carry set if true 

;See if char is between '0' and '9' 
;Added extra level of subroutine 
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LOC OBJ 
E74A 22 



LINE SOURCE 

=1 1728 ANEND: RET 
=1 1729 +1 $EJECT 



;Exit from ALFNUM 
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LOC OBJ 



E74B 


200417 


E74E 


BCFF05 


E751 


BDFF02 


E754 


D204 


E756 


C3 


E757 


EB 


E758 


9D 


E759 


5006 


E75B 


lA 


£75C 


EA 


|75D 


F4 


T75E 


C3 


E75F 


6003 


E761 


EA 


E762 


9C 


E763 


B3 


E764 


22 


E765 


C204 


E767 


C3 


E768 


22 



LINE 

1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 



SOURCE 



<r *********************************************************** 



NAME: LSSEQL 

ABSTRACT: This is a 16-bit 'less than' or 'equal' check. The 
carry bit is set to indicate true. If MAXNUM_FLAGS is 
true, no check is made. 

INPUTS: PARAMl (high byte to be compared to) 

PARAM2 (low byte to be compared to) 

PARAM3 (high byte to be compared) 

PARAM4 (low byte to be compared) 

OUTPUTS: Carry bit (C) 

VARIABLES MODIFIED: C, MAXNUM_FLAG, PARAMl 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 



***** 
LSSEQL 



t*********************************************************** 



START 



LABI: 



LABIA: 
LABIB: 



JB 

CJNE 
CJNE 
SETB 
COMPARE: 
CLR 
MOV 
SUBB 
JNC 
DEC 
MOV 
CPL 
CLR 
JZ 
MOV 
SUBB 
CPL 
RET 
CLR 
CLR 
RET 



MAXNUM_FLAG, LABIB 
PARAM3,#0FFH,START_C0MPARE 
PARAM4,#0FFH,START_C0MPARE 
MAXNUM FLAG 



A,PARAM2 

A,PARAM4 

LABI 

PARAMl 

A, PARAMl 

A 

C 

LABIA 

A, PARAMl 

A,PARAM3 

C 

MAXNUM_FLAG 
C 



;Move byte to be compared to into ACC 
;Subtract byte to be compared 

;Decrement upper byte if lower byte was smaller 



;Error if PARAMl decremented to FF 

;Move upper byte to be compared to into ACC 

;Subtract upper byte to be compared 

;Set C if <= is true 

;Exit from LSSEQL 



+1 $EJECT 
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OBJ 




LINE 






- ] 


1775 






= ] 


1776 






= 1 


1777 






= ; 


1778 






=: 


1779 






= : 


1780 






= : 


1781 






= : 


1782 






= ; 


1783 






= ; 


1784 






= : 


1785 






= : 


1786 






= ; 


1787 






= ; 


L 1788 






= ; 


1789 






= : 


L 1790 






= : 


1791 






= ; 


L 1792 






= ; 


L 1793 






= : 


L 1794 






= ; 


L 1795 






= : 


L 1796 






= : 


L 1797 






= : 


[ 1798 






= : 


[ 1799 


E769 


12E8BC 


= 


L 1800 


E76C 


754303 


= 


L 1801 


E76F 


B40106 


= : 


L 1802 


E772 


22 


= ' 


L 1803 






= 


L 1804 


E773 


12E8BC 


= 


L 1805 


E776 


AIBB 


= 


L 1806 






= 


1 1807 


E778 


61E4 


= 


1 1808 






= 


1 1809 






= 


I 1810 


E77A 


12E8BC 


= 


1 1811 


E77D 


754306 


= 


1 1812 


E780 


B402F5 


= 


1 1813 


E783 


22 


= 


1 1814 






= 


1 1815 +1 



SOURCE 
******************************************************************** 

NAME: (I)GETNUM / (I)GETEOL / (I)GET_COMMA 

ABSTRACT: These routines are general purpose token checks. 
IGETNUM will get a token and error if it is not 
a number token, it will return if it is. IGETEOL will 
look for an end-of-line token and error if it is not 
found, it will return if it is. IGET_COMMA will look for 
a comma token and will error if one is not found and return 
if it is. 

INPUTS: None 

OUTPUTS: None 

VARIABLES MODIFIED: ERRNUM 

ERROR EXITS: 03H (NUMBER EXPECTED) 
06H (COMMA REQUIRED) 

SUBROUTINES ACCESSED DIRECTLY: lERROR, IGETOKE 

******************************************************************** 
iGETNUM:CALL IGETOKE 

MOV ERRNUM, #03H ;Number expected 

CJNE A,#NUMBER_TOKE,UTILIT_ERROR 

RET 

IGETEOL:CALL IGETOKE 

JMP IEOL_CHECK ;Check for end of line token 

UTILIT_ERROR: 

JMP lERROR 

IGET_COMMA: 

CALL IGETOKE 

MOV ERRNUM, #06H ;Comma required 

CJNE A,#COMMA_TOKE,UTILIT_ERROR 

RET 
$EJECT 
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LOC OBJ 



t784 


C3 


E785 


85485B 


E788 


12E8BC 


E78B 


B4070D 


E78E 


F117 


E790 


AA5B 


E792 


12EA12 


E795 


7A3D 


E797 


B1E8 


E799 


D3 


^79A 


22 


I79B 


754305 


E79E 


B404D7 


E7A1 


22 



LINE 

1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 +1 



SOURCE 
******************************************************************** 

NAME: ISIT_DISPLAY 

ABSTRACT: This routine checks for an equal or an EOL token, 
sends the command token to the display with an = sign and 
sets carry if and equal sign is found. Carry is cleared 
if an EOL is found.. The value is filled in by another routine. 

INPUTS: TOKSTR 

OUTPUTS: Carry bit (C) 

VARIABLES MODIFIED: C, TOKSAV, PARAMl 

ERROR EXITS: 05H (EQUAL OR RETURN EXPECTED) 

SUBROUTINES ACCESSED DIRECTLY: IGETOKE, INEWLINE, ICO, lERROR 



■k-k-k-k-k-k 
ISIT DI 



CHANGE 



$EJECT 



************************************************************* 

SPLAY: 

CLR 

MOV 

CALL 

CJNE 

CALL 

MOV 

CALL 

MOV 

CALL 

SETB 

RET 
CHECK: 
■ MOV 

CJNE 

RET 



TOKSAV, TOKSTR 

IGETOKE 

A,#EOL TOKE,CHANGE_CHECK 

INEWLIITE 

PARAMl, TOKSAV 

IDISPLAY_TOKEN 

PARAMl, #'=' 

ICO 

C 



ERRNUM,#05H 
A,#EQUAL_TOKE,UTILIT_ERROR 



;Equal or return expected 
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LOC OBJ 



E7A2 


E548 


E7A4 


754303 


E7A7 


B401CE 


E7AA 


854A5A 


E7AD 


854959 


E7B0 


854A58 


E7B3 


854957 


E7B6 


12E8BC 


E7B9 


B40D1F 


E7BC 


F169 


E7BE 


854A5A 


E7C1 


854959 


E7C4 


C3 


E7C5 


E55A 


E7C7 


9558 


E7C9 


F564 


E7CB 


E559 


E7CD 


9557 


E7CF 


F563 


E7D1 


754307 


E704 


40A2 


E7D6 


12E8BC 


E7D9 


D3 


E7DA 


22 


E7DB 


C3 


E7DC 


22 



LINE 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

IE 

1£ 



10 

n 

1884 
1885 



1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 +1 



SOURCE 

NAME: (I)GET_PART 

ABSTRACT: This routine checks a token which is expected to be 
a number, sets up the partition addresses and looks for 
the upper partition limits from the user. Carry will be set 
if there is a partition or if there is an error condition. 
The partition range, or length, will also be calculated. 

INPUTS: TOKSTR, VALLOW, VALHGH 

OUTPUTS: Carry bit (C) 

VARIABLES MODIFIED: A, ERRNUM, PART I T_H I_LO W, P ART I T _H I_H I GH , 
PARTIT_LO_LOW, PART I T_LO_H I GH , C, LENGTH_LOW, LENGTH_HIGH 

ERROR EXITS: 07H (PARTITION ERROR, LOW ADDR > HIGH ADDR) 

SUBROUTINES ACCESSED DIRECTLY: IGETOKE, IGETNUM, lERROR 



********* 



t********************************************************* 



IGET_PART: 
MOV 
MOV 
CJNE 
MOV 
MOV 
MOV 
MOV 
CALL 
CJNE 
CALL 
MOV 
MOV 
CLR 
MOV 
SUBB 
MOV 
MOV 
SUBB 
MOV 
MOV 
JC 

CALL 
SETB 
RET 

PARTITION_E: 
CLR 
RET 

$EJECT 



Get 
el Si- 
the 



thp 



A, TOKSTR 

ERRNUM, #03H ;Number expected 

A,#NUMBER_TOKE,UTILIT_ERROR ;Set EA and 

PARTIT_HI_LOW, VALLOW 

PARTIT_HI_HIGH, VALHGH 

PARTIT_LO_LOW, VALLOW 

PARTIT_LO_HIGH, VALHGH 

IGETOKE 

A,#TO_TOKE,PARTITION_E 

IGETNUM 

PARTIT_HI_LOW, VALLOW 

PARTIT_HI_HIGH, VALHGH 

C 

A,PARTIT_HI_LOW 

A,PARTIT_LO_LOW 

LENGTH_LOW,A 

A,PARTIT_HI_HIGH 

A,PARTIT LO_HIGH 

LENGTH_HTGH,A 

ERRNUM, #07H 

UTILIT ERROR 

IGETOKE 

C 



SA to the value of the number. 



lext token. 

EA to the ending address of 
i t i on 



;Partition error, low adr > high adr 
;and then read in the next token. 
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LOC OBJ 




LINE 






L 1906 




= ; 


1907 




= ; 


1908 




= ; 


1909 




= : 


1910 




= : 


1911 




= ; 


L 1912 




= : 


1913 




= ; 


1914 




= : 


L 1915 




= ; 


1916 




= ; 


1917 




= ; 


L 1918 




= : 


1919 




= : 


L 1920 




= ; 


1921 


i 


= ; 


L 1922 


f 


= : 


1923 




= : 


L 1924 




= : 


1925 




= : 


1926 




= ; 


L 1927 




= : 


L 1928 




= 


[ 1929 


E7DD EA 


= 


L 1930 


E7DE C4 


= 


L 1931 


E7DF 12E7EB 


= 


L 1932 


E7E2 F6 


= 


L 1933 


E7E3 08 


= 


L 1934 


E7E4 EA 


= 


L 1935 


E7E5 12E7EB 


= 


L 1936 


E7E8 F6 


= 


L 1937 


|F7E9 08 


= 


L 1938 


i7EA 22 


= 


L 1939 


f 


= 


L 1940 +1 



SOURCE 



****•*•******••*■*•■*■**••*••**************•*■**•* 



t********************* 



NAME: (I )SAVE_AND_DISPLAY 

ABSTRACT: This routine will convert a hex byte into two ASCII 
characters for display the next time PAINTER is called. 
POINTO must be set before calling this routine to the character 
position desired on the screen (ie LINBUF or LINBUF+n). LNLGTH 
and CHRCNT are not adjusted by this routine. 

INPUTS: POINTO (the location in the line buffer desired), PARAMl 
(the character to be displayed) 

OUTPUTS: POINTO, 1 location in the line buffer 

VARIABLES MODIFIED: POINTO, A, 1 location in the line buffer 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: CONVHEX 



*************************************************************** 

ISAVE_AND_DISPLAY: 

MOV A, PARAMl 

SWAP A 

CALL CONVHEX 

MOV (aP0INT0,A ;ASCII of high byte in ace. 

INC POINTO 

MOV A, PARAMl 

CALL CONVHEX 

MOV @POINTO,A ;ASCII of low byte in ace. 

INC POINTO 

RET 
$EJECT 
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LOC 


OBJ 




LINE 






= ■ 


1941 






= : 


1942 






= : 


1943 






= ; 


1944 






= ; 


1945 






= ; 


L 1946 






= : 


L 1947 






= 


L 1948 






= 


L 1949 






= 


L 1950 






= 


L 1951 






= 


I 1952 






= 


L 1953 






= 


I 1954 






= 


L 1955 






= 


L 1956 






= 


L 1957 






= 


L 1958 






= 


L 1959 


E7EB 


540F 


= 


L 1960 


E7ED 


2490 


= 


L 1961 


E7EF 


D4 


= 


I 1962 


E7F0 


3440 


= 


L 1963 


E7F2 


D4 


= 


L 1964 


E7F3 


22 


= 


L 1965 






= 


L 1966 



SOURCE 

NAME: CONVHEX 

ABSTRACT: Converts 4 bits to a hex character. 

INPUTS: A (byte to be converted) 

OUTPUTS: A 

VARIABLES MODIFIED: A 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 

CONVHEX: 

ANL A,#OFH ;ASCII No. 90-99, aux.C=0 

ADD A,#90H ;9A-9F aux. C=l 

DA A 
ADDC A,#40H 
DA A 
RET 
1-1 $EJECT 
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LOC OBJ 



E7F4 12E7F9 

E7F7 EB 

E7F8 FA 

"e7F9 EA 

E7FA FC 

E7FB C4 

E7FC FIEB 

E7FE FA 

E7FF 12E5E8 

E802 EC 

E803 12E7EB 

E806 FA 

E807 02E5E8 



LINE 

1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 +1 



SOURCE 

NAME: (I)LSTWRD/ (I)LSTBYT 

ABSTRACT: Outputs a word or a byte to the system console. 

INPUTS: PARAM2 (low byte of a word), PARAMl (high byte of a word 
or the single byte in a byte display) 

OUTPUTS: None 

VARIABLES MODIFIED: A, PARAMl, PARAM3 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: CONVHEX, ICO 



ILSTWRD: 



CALL 
MOV 



ILSTBYT 
A,PARAM2 



. ****** 
ILSTBYT 



MOV PARAMl, A 
************************************************************ 



:MOV 
MOV 
SWAP 
CALL 
MOV 
CALL 
MOV 
CALL 
MOV 
JMP 



A, PARAMl 

PARAM3,A 

A 

CONVHEX 

PARAMl, A 

ICO 

A,PARAM3 

CONVHEX 

PARAMl, A 

ICO 



;Move byte into ACC 



;Save lower 4 bits in lower 4 of PARAM3 
;Needed because reg to reg moves invalid 



REJECT 
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LOC OBJ 



E80A 7924 

E80C E7 

E80D FA 

E80E 12E638 

E811 09 

E812 DFF8 

E814 22 



LINE 

2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 +1 



SOURCE 

NAME: PAINTER 

ABSTRACT: Repaints the contents of LINBUF to the display. 

INPUTS: PARAM6 (contains line length, LNLGTH) 

OUTPUTS: None 

VARIABLES MODIFIED: A, PARAMl , POINTl, PARAM6 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: UPI_OUT 

****************************************************************** 



PAINTER:MOV 
REPAINT_2: 
MOV 
MOV 
CALL 
INC 
DJNZ 
RET 
$EJECT 



POINTl, #LINBUF 

A,@P0INT1 

PARAMl, A 

UPI_OUT 

POINTl 

PARAM6,REPAINT_2 
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LOC OBJ 



h8 

m 



E815 E551 
E817 B55442 

E81A 7A00 

E81C 12E625 

E81F E552 

E821 F554 

23 F551 

25 2423 

827 F8 

E828 12E717 

E82B AF54 

E82D BF0003 

E830 02E835 

E833 llOA 

E835 7AAD 
E837 12E638 
E83A 12E5EB 
E83D F550 
E83F FA 
E840 BA0D24 
E843 7424 
2554 
F8 

760D 
4A 0554 
4C E4 
E84D A201 
E84F 92E6 




-1 



LINE 

2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
206 2 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 



SOURCE 
*************************************************************** 

NAME: GETCHR 

ABSTRACT: This routine returns one character from the line 
buffer in CHARIN if a carraige return has bee received. 
If no °CR° is present, it gets characters from the UPI and 
fills the line buffer until a °CR° is encountered. It echos 
each character, as it is received, to the display. If LIST 
is on, it echoes the entire line to the serial port after a 
°CR° is encountered. 

INPUTS: CHRCNT, LNLGTH, LSTFLG, LINE_START 

OUTPUTS: CHARIN 

VARIABLES MODIFIED: A, PARAMl, PARAM2, LNLGTH, CHRCNT, C, CHARIN 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: ITIME, UPI_CMD, INEWLINE, PAINTER, 
UPI_OUT, ICI, ICO, SPACCO 



CRWAIT: 



GETCHR: MOV 
CJNE 

MOV 
CALL 

MOV 
MOV 
MOV 
ADD 
MOV 
CALL 
MOV 
CJNE 
JMP 
REPAINT:CALL 
REPAINT__1 : 
MOV 
CALL 
CALL 
MOV 
MOV 
C J N E 
MOV 
ADD 
MOV 
MOV 
INC 
CLR 
MOV 
MOV 



A, CHRCNT 

A, LNLGTH, OUTCHR 

PARAMl, #SELECT_CON 

UPI_CMD 

A,LINE_START 

LNLGTH, A 

CHRCNT, A 

A,#(LINBUF-1) 

POINTO,A 

INEWLINE 

PARAM6, LNLGTH 

PARAM6,#00H, REPAINT 

REPAINT_1 

PAINTER 

PARAMl, #('-'+BLINK) 
UPI OUT 
ICI 
CHARIN, A 

PARAMl, A 

PARAMl, #CR,RUB0UT 

A,#LINBUF 

A, LNLGTH 

P0INT0,A 

@P0INT0,#CR 

LNLGTH 

C, LSTFLG 
ACC.6,C 



;Move character counter into ACC 
;Compare ACC to line length and jump to 
;OUTCHR if not equal 



;Clear character count and line length 
^Initialize RO as pointer to line buffer 

;Re-paint the alpha-numeric display. 



;Move input into character storage 
;Move CHARIN into R2 
;Check for CR as input 



;Load RO to next char in line buffer 
;Load CR into line buffer 
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LOC 


OBJ 


E851 


FA 


E852 


12E625 


E855 


12E717 


E858 


AF54 


E85A 


llOA 


E85C 


7424 


E85E 


2551 


E860 


F8 


E861 


E6 


E862 


F550 


E864 


0551 


E866 


22 


E867 


BA7F18 


E86A 


E554 


E86C 


B55202 


E86F 


80B7 


E871 


7A08 


E873 


12E5E8 


E876 


12E5E6 


E879 


7A08 


E87B 


12E5E8 


E87E 


1554 


E880 


80A6 


E882 


E554 


E884 


B41702 


E887 


809F 


E889 


BA091A 


E88C 


74 24 


E88E 


2554 


E890 


F8 


E891 


E554 


E893 


04 


E894 


F554 


E896 


7620 


E898 


08 


E899 


B41702 


E89C 


808A 


E89E 


30E0F2 


E8A1 


30E1EF 


E8A4 


8082 


E8A6 


E550 


E8A8 


30E503 


E8AB 


30E600 


E8AE 


7424 


E8B0 


2554 


E8B2 


F8 


E8B3 


A650 


E8B5 


12E5E8 


E8B8 


0554 


E8BA 


0128 



LINE 



SOURCE 



1 2083 




MOV 


PARAM1,A 


1 2084 




CALL 


UPI CMD 


1 2085 




CALL 


INEWLINE 


1 2086 




MOV 


PARAM6,LNLGTH 


1 2087 




CALL 


PAINTER 


1 2088 


OUTCHR: 


MOV 


A,#LINBUF 


1 2089 




ADD 


A,CHRCNT 


1 2090 




MOV 


POINTO,A 


1 2091 




MOV 


A,@POINTO 


1 2092 




MOV 


CHARIN,A 


1 2093 




INC 


CHRCNT 


1 2094 




RET 




1 2095 


RUBOUT: 


CJNE 


PARAM1,#RB0UT, LEGALI 


1 2096 




MOV 


A,LNLGTH 


1 2097 




CJNE 


A, LINE START, DELET 


1 2098 




J MP 


CRWAIT 


1 2099 


DELET: 


MOV 


PARAM1,#BACKSP 


1 2100 




CALL 


ICO 


1 2101 




CALL 


SPACCO 


1 2102 




MOV 


PARAM1,#BACKSP 


1 2103 




CALL 


ICO 


1 2104 




DEC 


LNLGTH 


1 2105 




JMP 


CRWAIT 


1 2106 


LEGALI: 


MOV 


A, LNLGTH 


1 2107 




CJNE 


A,#LINMAX-1,TABKEY 


1 2108 




JMP 


CRWAIT 


1 2109 


TAB KEY: 


CJNE 


PARAM1,#H0RIZ0NTAL TAB 


1 2110 




MOV 


A,#LINBUF 


1 2111 




ADD 


A, LNLGTH 


1 2112 




MOV 


POINTO,A 


1 2113 




MOV 


A, LNLGTH 


1 2114 


MORE_SPACE: 




-1 2115 




INC 


A 


= 1 2116 




MOV 


LNLGTH, A 


-1 2117 




MOV 


@POINTO,#' ' 


1 2118 




INC 


POINTO 


=1 2119 




CJNE 


A,#LINMAX-1,M0RE CONT 


=1 2120 




JMP 


CRWAIT 


=1 2121 


MORE_CONT: 




=1 2122 




JNB 


ACC.O,MORE SPACE 


=1 2123 




JNB 


ACC.1,M0RE SPACE 


=1 2124 




JMP 


CRWAIT 


=1 2125 


INPUT: 


MOV 


A,CHARIN 


=1 2126 




JNB 


ACC. 5, INPUTOK 


=1 2127 




JNB 


ACC. 6, INPUTOK 


=1 2128 


INPUTOK 




MOV A,#LINBUF 


=1 2129 




ADD 


A, LNLGTH 


=1 2130 




MOV 


POINTO, A 


=1 2131 




MOV 


@POINTO,CHARIN 


=1 2132 




CALL 


ICO 


=1 2133 




INC 


LNLGTH 


=1 2134 




JMP 


CRWAIT 


=1 2135 +1 


$EJECT 







iTurn list mode on if selected 



Echoes line a final time in list mode 

Load A with base addr of storage array 

Add character count to ACC 

RO used as indirect pointer to char. 

Return char to GETCHR call routine in ACC 

Move character pointer to by RO 

Increment character counter 

Exit from GETCHR 

Check for rub out as input 

Move line length into ACC 

Check if any characters were input yet 

CR wait loop 

Output back space 
Output space 

Output back space 
Decrement line 1 ength 
CR wait loop 

;Check that line does not exceed max 
;CR wait loop 
,INPUT 



Load A with line buffer base addr 

Add 1 ine length to ACC 

POINTO used as pointer to array 

Load input into storage array 

Output input 

Increment line length counter 

CR wait routine 



INTEL PROPRIETARY VERS. #1.03' 



M2,81 



PAGE 57 



Ir******^ 



t************il 



t**************Tll 



k-k-k-k-k-k-k-k-k^-k 



ZTOKE 

This routine inputs characters, ignoring spaces, until 
buffer is full (LNCNT). If the characters are numbers 
en type is designated °number° and its value goes into 
and VALHGH. It compares the input token to the keyword table 
'ors if not found. If found, it checks the next keyword 
:o see if the token is a valid abreviation. Assembler 
Js that are not numbers will have the basic operand type 
-t (B T). 



one 
TOKSTR, 



T, 



MODIFIED: A, POINTO, LINCNT, (aPOINTO, PARAMl, TEMPI, 
I, DPTR, TOKSTR, B__0_T 

:TS: OIH (INVALID WORD i.e. token) 

^ES ACCESSED DIRECTLY: lERROR, GETCHR, IGETOKE, AZTEST, 
^, ALFNUM, STRING_SPACE 



*••******•** *************************T«1 



«r************** 



. r\ 


B T 




A,CHARIN 




A,#' ', ALPHA 


\L. 


GETCHR 


'"' 


IGETOKE 




POINTO, #STRGBF 


o , 


LINCNT, #T0KSIZ + 1 


^, 


A,#' ■ 




(3P0INT0,A 


l^i 


POINTO 




LINCNT, SPFILL 




LINCNT, #TOKSIZ 


lU 


POINTO, #STRGBF 


.^ 


PARAMl, CHARIN 




AZTEST 


J L 


STRFIL 




NUMBER 




ALFNUM 


1 


STRTST 




A, PARAMl 




@POINTO,A 


1 


POINTO 


"' 


TEMPI, POINTO 


,L 


GETCHR 


i\ ' 


PARAMl, CHARIN 


' 1 


POINTO, TEMPI 


a 


LINCNT, STRFIL 


L _L 


ALFNUM 



Move char into ACC 
Loop on space inputs 
Get new input 
Space loop 



Load ACC with ASCII equiv of space 

Fill buffer with spaces 

Increment string buffer pointer 

Loop until string buffer is filled 

Move length of string into Rl 

Move base addr of string buffer into RO 

Move char into R2 

See if char is a letter 

Jump to number if false 

See if char is letter or number 

Jump to filler routine if non-numerical 

Save char in string buffer 

Needed because reg to reg move invalid 

Increment string buffer pointer 

Save pointer from GETCHAR 

Get next input 

To pass param for ALFNUM 

Restore pointer for GETOKE 

Get nore char if line counter is not 

Check for alpha-numeric character 
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LOC 


OBJ 


E8F8 


5006 


E8FA 


1115 


E8FC 


AA50 


E8FE 


80F5 


E900 


7A00 


E902 


12E9CD 


E905 


7013 


E907 


400A 


E909 


OA 


E90A 


BA68F5 


E90D 


754301 


E910 


02E3E4 


E913 


OA 


E914 


12E9CD 


E917 


lA 


E918 


40F3 


E91A 


EA 


E91B 


90E070 


E91E 


93 


E91F 


F548 


E921 


B44000 


E924 


4007 


E926 


B49800 


E929 


5002 


E92B 


D200 


E92D 


E548 


E92F 


22 



LINE 

2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 



SOURCE 

JNC 
CALL 
MOV 
SJMP 

STRTST: MOV 

STRTSTlrCALL 
JNZ 
JC 
INC 
CJNE 

TOKERR: MOV 
JMP 

CHECK ABREV: 
INC 
CALL 
DEC 
JC 

GOOD_TOKE_FOUND 
MOV 
MOV 
MOVC 
MOV 
CJNE 
JC 

CJNE 
JNC 
SETB 
MOV 
RET 



GTO: 



GTl: 



NOTBOT: 



STRTST 

GETCHR 

PARAMI.CHARIN 

SPWAIT 

PARAM1,#00H 

STRING SPACE 

GOOD_TrrKE_FOUND 

CHECK_ABREV 

PARAMl 

PARAM1,#(KEYTAB-T0KTBL+1 

ERRNUM,#01H 

lERROR 

PARAMl 

STRING_SPACE 
PARAMl 
TOKERR 

A, PARAMl 

DPTR,#(TOKTBL - 1) 

A,(9A + DPTR 

TOKSTR,A 

A,#40H,GT0 

NOTBOT 

A,#98H,GT1 

NOTBOT 

B_G_T 

A,TOKSTR 



;Loop until space is input 
;Get next character 
;Setup for ALFNUM 



^Compare STRGBF to the keyword table. 



,STRTST1 
Invalid word 



Get token from tabl e 

Put token in storage 

Set basic operand type flag for 

Tokens that are assembler operands which 

are not numbers. 



+1 $EJECT 
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LOC OBJ 



E930 


12E72D 


E933 


505F 


E935 


754A00 


E938 


754900 


E93B 


12E737 


E93E 


502B 


E940 


12E72D 


E943 


5022 


E945 


7B30 


E947 


E54A 


E949 


75F010 


E94C 


A4 


E94D 


F54A 


E94F 


E550 


E951 


9B 


E952 


254A 


E954 


F54A 


E956 


AAFO 


E958 


75F010 


E95B 


E549 


E95D 


A4 


E95E 


2A 


E95F 


F549 


E961 


1115 


€963 


AA50 


E965 


80D4 


E967 


7B37 


E969 


80DC 


E96B 


E550 


.E96D 


B44802 


'E970 


1115 


E972 


E550 



LINE 

2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 



SOURCE 
*************************************************************** 

NAME: NUMBER 

ABSTRACT: This routine checks to see if a number of characters 
(1-24) is a valid hex number, converts it to a 
16 bit binary number and gives it a number token if 
is. It ignores leading zeros and trailing 'Hs'. 

INPUTS: A 

OUTPUTS: TOKSTR, VALHGH, VALLOW 

VARIABLES MODIFIED: VALLOW, VALHGH, PARAM2, A, B, TOKSTR 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: NMTEST, HXTEST, GETCHR 

******************************************************************** 



HEXSTR: 



RL4: 



NUMBER: CALL 
JNC 
MOV 
MOV 
CALL 
JNC 
CALL 
JNC 
MOV 
MOV 
MOV 
MUL 
MOV 
MOV 
SUBB 

ADD 

MOV 

MOV 

MOV 

MOV 

MUL 

ADD 

MOV 

CALL 

MOV 

SJMP 

HEXCHR: MOV 
SJMP 

HTEST: MOV 
CJNE 
CALL 

NUMBER_1: 

MOV 



NMTEST 

SYMBOL 

VALLOW, #00H 

VALHGH, #00H 

HXTEST 

HTEST 

NMTEST 

HEXCHR 

PARAM2,#'0' 

A, VALLOW 

B,#16 

AB 

VALLOW, A 

A,CHARIN 

A,PARAM2 

A, VALLOW 

VALLOW, A 

PARAM1,B 

B,#10H 

A, VALHGH 

AB 

A,PARAM1 

VALHGH, A 

GETCHR 

PARAM1,CHARIN 

HEXSTR 

PARAM2,#('A'-0AH) 

RL4 

A,CHARIN 

A,#'H' ,NUMBER_1 

GETCHR 

A,CHARIN 



;Jump if char is not a number 
;Initialize value storage 



Jump if char is not a hex character 
Check for character=0 to 9 
Load A into PARAM2 for hex char 
Clear pointer 

To RL 4 places 

ACC now holds VALLOW RL 4 places 
Move last number entered into ACC 
Subtract ASCII equiv of 'A' or '0' 
as appropriate for hex or decimal 
Add number to rotated VALLOW 
Store new value in VALLOW 
Store upper 4 bits from rotate 

Move VALHGH into ACC 

Rotate VALHGH 4 places to left 

Add upper 4 bits from VALLOW 

Store new value in VALHGH 

Get next input 

Set up pass param for HXTEST 

Loop until non hex char entered 

Move ASCII equiv of 'A' into POINTl 



;See if char is 'H' and ignore if so 



;Look at next character 
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LOC OBJ 



LINE 



SOURCE 



E974 


B42C02 


= ] 


2276 




CJNE 


A,#' ,' .NUMBER 2 


E977 


8015 


= ] 


[ 2277 




SJMP 


NUMBER_FOUND 






= ] 


L 2278 


NUMBER_ 


2: 




E979 


B40D02 


= ] 


2279 




" CJNE 


A, #CR, NUMBER 3 


E97C 


8010 


= ] 


L 2280 




SJMP 


NUMBER_FOUND 






= ] 


[ 2281 


NUMBER_ 


3: 




E97E 


B43D02 


= ] 


L 2282 




" CJNE 


A,#' = ' , NUMBER 4 


E981 


800B 


= 


L 2283 




SJMP 


NUMBER__FOUND 






= '. 


L 2284 


NUMBER_ 


4: 




E983 


B42002 


= ] 


L 2285 




CJNE 


A,#' ' , NUMBER ERR 


E986 


8006 


= ] 


[ 2286 




SJMP 


NUMBER_FOUND 






= 


L 2287 


NUMBER_ 


ERR: 




E988 


754303 


= : 


L 2288 




MOV 


ERRNUM,#03H 


E98B 


02E3E4 


= 


L 2289 




JMP 


lERROR 






= 


L 2290 


NUMBER_ 


FOUND: 




E98E 


754801 


= ; 


L 2291 




MOV 


TOKSTR,#NUMBER TOKE 


E991 


E548 


= ' 


L 2292 




MOV 


A,TOKSTR 


E993 


22 


= 


L 2293 
L 2294 +1 


$EJECT 


RET 





;Check for valid delimiter - comma 

;Check for valid delimiter - CR 

;Check for valid delimiter - equal sign 

;Check for valid delimiter - space 
;Set up 'number req' error 



;Load toke storage with number token 
;Load ACC with TOKEN 
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LOC OBJ 



E994 8A48 

E996 90E9AE 

E999 E4 

E99A 93 

E99B 754301 

E99E 601C 

E9A0 B54807 

E9A3 A3 

E9A4 E4 

E9A5 93 

E9A6 F548 

E9A8 8015 

'e9AA A3 

E9AB A3 

E9AC 80EB 

E9AE 2C 

E9AF 02 

E9B0 2F 

E9B1 03 

E9B2 3D 

E9B3 04 

E9B4 2B 

E9B5 05 

E9B6 23 

E9B7 06 

E9B8 OD 

E9B9 07 

E9BA 00 

9BB 00 

E9BC 02E3E4 

E9BF BA0D06 



LINE 

2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 
2342 



SOURCE 
********************************************************************* 

NAME: SYMBOL 

ABSTRACT: This routine checks a token against the symbol 

table tokens (ie comma, equal sign, etc.), errors if 

there is no match and returns the token in ACC if it is 
found. 

INPUTS: PARAMl 

OUTPUTS: A, TOKSTR 

VARIABLES MODIFIED: TOKSTR, A, DPTR, ERRNUM, CHARIN 

ERROR EXITS: OIH (INVALID WORD) 

SUBROUTINES ACCESSED DIRECTLY: lERROR, GETCHR 



SYMBOL: MOV 


TOKSTR, PARAMl 


MOV 


DPTR,#SYMBOL_TBL 


SYM TBL SRCH: 




CLR 


A 


MOVC 


A,(3A + DPTR 


MOV 


ERRNUM, #01H 


JZ 


ERRSET 


CJNE 


A, TOKSTR, NOT MATCH TBL 


INC 


DPTR 


CLR 


A 


MOVC 


A,(3A + DPTR 


MOV 


TOKSTR, A 


SJMP 


SYMEND 


NOT MATCH TBL: 




INC 


DPTR 


INC 


DPTR 


SJMP 


SYM_TBL_SRCH 


SYMBOL TBL: 




DB 


' , ' ,COMMA_TOKE 


DB 


'/' ,BAR_TOKE 


DB 


' = ' ,EQUAL_TOKE 


DB 


' + ' ,PLUS_TOKE 


DB 


'#' ,POUND_TOKE 


DB 


CR,EOL_TOKE 


DB 


0,0 


ERRSET: JMP 


lERROR 


SYMEND: CJNE 


PARAMl, #CR,LAB10 



; Inval id token (word) 



;See if last input was a 'CR' 
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LOC OBJ 



LINE 



SOURCE 



E9C2 


755020 


= 1 


2343 




MOV 


CHARIN,# 


E9C5 


E548 


= 1 


2344 




MOV 


A,TOKSTR 


E9C7 


22 


= 1 


2345 




RET 




E9C8 


1115 


= 1 


2346 


LABIO: 


CALL 


GETCHR 


E9CA 


E548 


= 1 


2347 




MOV 


A,TOKSTR 


E9CC 


22 


_ 1 


2348 
2349 +1 


$EJECT 


RET 





Return a space to calling routine if 'CR' 

Load ACC with token 

Exit from GETOKE 

Get next character if 'CR' wasn't last char 

To return token in ACC 

Exit from GETOKE 
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LOC OBJ 



m 



m 



E9CD 
E9CF 
E9D2 
E905 
E9D8 
E9D9 
9DA 
9DB 
9DD 
E9DF 
E9E1 
E9E3 
E9E5 
E9E6 
E9E7 
E9E9 
E9EA 
E9ED 
E9EE 
E9EF 
E9F2 
E9F3 
E9F4 
E9F5 
9F6 
F9 
'9FA 
E9FB 
E9FC 



783C 

755504 

90E0D4 

75F004 

EA 

A4 

C3 

2582 

F582 

E5F0 

3583 

F583 

E4 

93 

F556 

E6 

B55609 

A3 

08 

D555F3 

D3 

E4 

F4 

22 

B42003 

D3 

E4 

22 

C3 



LINE 

2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 



SOURCE 

NAME: STRING_SPACE 

ABSTRACT: This routine checks the contents of the string buffer 
against the keyword table for any match (ie a valid abreviation 
or an exact match) and returns to the calling routine. There 
are 4 places in e\/ery keyword and this routine matches for 
spaces as well as characters. Carry and ACC are set 
if match is exact, carry is set and ACC is cleared if match is 
not exact (ie spaces do not match - could be an abrev.), both 
carry and ACC are cleared if there is no match at all. 

INPUTS: STRGBF, PARAMl (token ordinal in KEYTAB) 

OUTPUTS: Carry bit (C), A 

VARIABLES MODIFIED: C, A, POINTO, STRGCT, DPTR, B, TEMPI 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 

****************************************************************** 
STRING_SPACE: 
MOV 
MOV 
MOV 
MOV 
MOV 
MUL 
CLR 
ADD 
MOV 
MOV 
ADDC 
MOV 
CLR 
MOVC 
MOV 
MOV 
CJNE 
INC 
INC 
DJNZ 
SETB 
CLR 
CPL 
RET 
CJNE 
SETB 
CLR 
RET 
CLR 



SSI: 



S S 2: 



S S 3: 



POINTO, #STRGBF ;Load RO with address of string buffer 
STRGCT, #TOKSIZ ;Load counter with length of string 
DPTR,#(KEYTAB-4);Load DPTR with address of KEY TABLE 
B,#4 

;Load ACC with offset 
;Multiply by 4 characters 



A, PARAMl 

AB 

C 

A,DPL 

DPL,A 

A,B 

A,DPH 

DPH,A 

A 

A,@A+DPTR 

TEMPI, A 

A,(9P0INT0 

A,TEMP1,S_S_ 

DPTR 

POINTO 

STRGCT, S_S_1 

C 

A 

A 



;Add offset to base 



A,#' 

C 

A 



' . S_S_3 



;Next key character 

;Next string character 

;Test the whole 4 char string 

;Match exactly including spaces 



;Match but not exact (spaces) 



;No match at dll 
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E9FD E4 
E9FE 22 



M2,81 PAGE 64 



= 1 


2405 






CLR 


= 1 


2406 






RET 


= 1 


2407 


+ 1 


$EJECT 
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LOC OBJ 



E9FF 8A83 

EAOl 8B82 

EA03 E4 

EA04 93 

EA05 FF 

EA06 6009 



#; 



EA08 E4 

A09 A3 
OA 93 

'AOB FA 

AOC 12E5Ee 
EAOF DFF7 



EAll 22 



LINE 

2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 +1 



SOURCE 
****************************************************************** 

NAME: (I )PRINT_STRING 

ABSTRACT: Prints a string from program memory. At entry, PARAMl 
and PARAM2 should point to the string. The first element of 
the string is the length (0-255), the rest of the elements are 
output as ASCII characters. 

WARNING: Calls to this routine may not be single-stepped through. 

INPUTS: PARAMl(high byte), PARAM2(low byte) 

OUTPUTS: None 

VARIABLES MODIFIED: A, COUNT, DPTR, PARAMl 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: ICO 
******************************************************************* 



IPRINT_STRING: 

MOV 

MOV 

CLR 

MOVC 

MOV 

JZ 
PRINT_STRING_1: 

CLR 

INC 

MOVC 

MOV 

CALL 

DJNZ 
PRINT_STRING_E: 

RET 
$EJECT 



DPH, PARAMl 

DPL,PARAM2 

A 

A,@A+DPTR 

COUNT, A 

PRINT_STRING_E 

A 

DPTR 

A,(aA+DPTR 

PARAMl, A 

ICO 



;Counter : =stri ng length. 

;Exit if a null string or 
;else get the next element 



;and output it. 

;Repeat loop until count=0. 



COUNT, PRINT_STRING_1 

;Then return to the caller. 
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LOC OBJ 



EA12 7B00 

EA14 C3 

EA15 90E071 

EA18 EB 

EA19 93 

EAIA B50203 

EAID 02EA23 

EA20 OB 

EA21 80F2 

EA23 90E0D8 

EA26 A3 

EA27 A3 

EA28 A3 

EA29 A3 

EA2A DBFA 

EA2C 7C04 

EA2E E4 

EA2F 93 

EA30 B42001 

EA33 22 

EA34 FA 

EA35 12E5E8 

EA38 A3 

EA39 DCF3 

EA3B 22 



LINE 

2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 +1 



SOURCE 
****************************************************************** 

NAME: (I )DISPLAY_TOKEN 

ABSTRACT: This routine displays an ASCII token using the token 

value passed to it (PARAMl) to indicate which token to display. 

INPUTS: PARAMl (token to be displayed) 

OUTPUTS: None 

VARIABLES MODIFIED: PARAM2, DPTR, A, PARAM3, PARAMl 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: ICO 



DTO 0: 



DTO: 



DTI: 



IDISPLAY_TOKE 
MOV 
CLR 

MOV 

MOV 

MOVC 

CJNE 

JMP 

INC 
JMP 

MOV 

DT_LOOP: 

INC 

INC 

INC 

INC 

DJNZ 

MOV 

TOKLOP: CLR 
MOVC 
CJNE 
RET 

TOK_WRITE: 
MOV 
CALL 
INC 
DJNZ 
RET 

;***** END OF 

$EJECT 



N: 



PARAM2,#00H 
C 

DPTR,#TOKTBL 
A,PARAM2 
A,(9A + DPTR 
A, 2, DTO 
DTI 

PARAM2 
DTO_0 

DPTR,#KEYTAB 

DPTR 

DPTR 

DPTR 

DPTR 

PARAM2,DT_L00P 

PARAM3,#04H 

A 

A,@A+DPTR 

A,#' ',TOK_WRITE 



PARAMl, A 

ICO 

DPTR 

PARAM3, TOKLOP 

DISPLAY TOKEN ***** 



;2 is the direct addr of R2 which we call PARAMl 



;Load ACC with first character of token 

;To output character 

;Loop if less than 4 characters output 
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LOC 


OBJ 




LINE 






= ] 


L 2498 






= ; 


2499 






= ; 


2500 






= : 


L 2501 






= : 


2502 






= : 


L 2503 






= 


L 2504 






= 


L 2505 






= 


L 2506 






= ; 


L 2507 






= 


I 2508 






= : 


L 2509 






= 


L 2510 






=: 


[ 2511 






= 


L 2512 






= 


L 2513 


^ 




= 


L 2514 


1 




= 


L 2515 






= 


L 2516 






= 


L 2517 






= 


L 2518 


EA3C 


EA 


= 


I 2519 


EA3D 


30E602 


= ' 


L 2520 


EA40 


2409 


= 


L 2521 


EA42 


540F 


= 


L 2522 


EA44 


22 


= 


L 2523 






= 


I 2524 +1 



SOURCE 
****************************************************************** 

NAME: ASCII_TO_HEX (PARAMl) 

ABSTRACT: Assumes that PARAMl is an ASCII character representing 
a hexi decimal digit aird converts it to binary. The result 
is returned in the lower four bits of the accumulator. The 
upper bits are cleared. 

INPUTS: PARAMl (ASCII character) 

OUTPUTS: A 

VARIABLES MODIFIED: A 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 
****************************************************************** 

IASCII_TO_HEX: 

MOV A, PARAMl 

JNB ACC.6,HEX1 

ADD A,#09H 
HEXI: ANL A,#OFH 

RET 
$EJECT 



Put ASCII character into ACC 
Jump to HEXI if CHAR < 40H 
Add nine if CHAR > 3FH 
Mask lower 4 bits 
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LOC OBJ 



EA45 


EA 


EA46 


F4 


EA47 


F583 


EA49 


EB 


EA4A 


F4 


EA4B 


F582 


EA4D 


A3 


EA4E 


7D2E 


EA50 


DDFE 


EA52 


A3 


EA53 


E582 


EA55 


4583 


EA57 


00 


EA58 


70F4 


EA5A 


22 



LINE 

2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2 539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 +1 



SOURCE 

NAME: ITIME 

ABSTRACT: TIME is a general purpose routine available through 
the jump table. Parameter 1 and 2 are the high and low bytes 
of a sixteen bit timer where each increment represents 
100 uS as in PLM. 
Time simply delays for the specified time and then returns. 

INPUTS: PARAMl (high byte), PARAM2 (low byte) 

OUTPUTS: None 

VARIABLES MODIFIED: A, DPTR, R5 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 



ITIME: 



TIMEl: 



. ****** 

Ieject 



MOV A, PARAMl 

CPL A 

MOV DPH,A 

MOV A,PARAM2 

CPL A 

MOV DPL,A 

INC DPTR 

MOV R5,#2EH 

DJNZ R5,$ 

INC DPTR 

MOV A,DPL 

ORL A,DPH 
NOP 

JNZ TIMEl 
RET 
************************************************************ 



;Convert PARAMl and PARAM2 into one 16-bit 
;negative number in DPTR 



;Setup and 

;Loop for 100 us 

;Count out the 16-bit parameter 

;Check DPTR for zero 
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LOC OBJ 



• 



EA5B 


E548 


EA5D 


5407 


EA5F 


85485B 


EA62 


F546 


EA64 


IIBC 


EA66 


12E7A2 


EA69 


855845 


EA6C 


855744 


EA6F 


92F0 


EA71 


B4040B 


EA74 


30F00E 


tA77 


IIBC 


^EA79 


B48061 


EA7C 


02EB58 


EA7F 


12E5BB 


EA82 


02EB02 



LINE 

2565 +1 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 +1 



SOURCE 
$INCLUDE(:fl:DISCHA.INC) 

NAME: MEMORY_CMD 

ABSTRACT: This routine saves the kind of memory operation 

selected and checks for partitions and equal signs in order 

to dicide whether a fill, load, display or block move is 
requested. 

INPUTS: TOKSTR 

OUTPUTS: None 

VARIABLES MODIFIED: A, TOKSAV, SELECT, PNTLOW, PNTHGH, B 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: IGETOKE, IGET_PART, BMOVE, 
IEOL_CHECK, DISMEM, LODMEM, FILLMEM 

****************************************************************** 



MEMORY_CMD: 
ANL 
MOV 
MOV 
CALL 
CALL 
MOV 
MOV 
MOV 
CJNE 
JNB 
CALL 
CJNE 
JMP 

DIS_OR_ERR: 
CALL 
JMP 

$EJECT 



Last 3 bits of token determine selector 

Load selector 

Partition? Returns 1 bit (C)=true if part. 



MOV A, TOKSTR 

A, #07 

TOKSAV, TOKSTR 

SELECT, A 

IGETOKE 

IGET PART 

PNTLlTW,PARTIT_LO_LOW 

PNTHGH, PARTIT_LO_HIGH 

B.O,C 

A,#EQUAL_TOKE,DIS_OR_ERR ;Check for equal sign from GET_PART 

B.O, LODMEM ;Single byte load (CBY addr = data) 

IGETOKE 

A,#CBYTE TOKE, FILLMEM ;Block move (CBY addr TO addr =CBY addr) 

BMOVE ~ ;Fill mem. (CBY addr TO addr=data) 



IEOL_CHECK 
DISMEM 



;Display mem. (CBY addr TO addr-no equalsign) 
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EA85 


12E769 


EA88 


AA4A 


EA8A 


12E672 


EA8D 


12E5C4 


EA90 


IIBC 


EA92 


B40242 


EA95 


IIBC 


EA97 


B40738 


EA9A 


7824 


EA9C 


E546 


EA9E 


7652 


EAAO 


B40002 


EAA3 


7643 


EAA5 


B40202 


EAA8 


7644 


EAAA 


B40602 


EAAD 


7658 


EAAF 


08 


EABO 


7642 


EAB2 


08 


EAB3 


7659 


EAB5 


B40402 


EAB8 


7649 


EABA 


08 


EABB 


7654 


EABD 


08 


EABE 


7620 



LINE 

2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 



SOURCE 
****************************************************************** 

NAME: LODMEM 

ABSTRACT: The pointer will be set to memory address upon entry. 
Parsing continues as long as new tokens are available on the 
command line. Each new token either supplies a new value which 
goes into memory or a <CR> which terminates the command. Commas 
are expected between any two numbers and at the end of a line 
when a continuation is desired. When entry of data has gone 
beyond one line (a continuation line) the line buffer is filled 
with the message and address which tells the user what address 
is currently being modified. 

INPUTS: SELECT, PNTHGH, PNTLOW 

OUTPUTS: Memory which was supposed to be accessed by the command 
typed in at the console. 

VARIABLES MODIFIED: PARAMl , A, POINTO, LINE_START 



ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: IGETNUM, ISTORE, 
ISAVE AND_DISPLAY, IEOL_CHECK, lERROR 



I6ET0KE, INC_PNT, 



**•*•***■*■*** 



LODMEM 
LDLOOP 



B_LAB_ 
B_LAB_ 
B LAB 



T LAB 



: CALL 

: MOV 
CALL 
CALL 
CALL 
CJNE 
CALL 
CJNE 
MOV 
MOV 
MOV 
CJNE 
MOV 

1:CJNE 
MOV 

2:CJNE 
MOV 

3:INC 
MOV 
INC 
MOV 
CJNE 
MOV 
INC 
MOV 
INC 
MOV 



IGETNUM 



PARAMl, VALLOW 

ISTORE 

INC_PNT 

IGETOKE 

A,#COMMA_TOKE,EOLMEM 

IGETOKE 

A,#EOL_tOKE,NUMMEN 

POINTO, #LINBUF 

A, SELECT 

(aPOINTO,#'R' 

A,#(CBYTE_TOKE AND 07H),E 

@POINTO,#'C' 

A,#(DBYTE TOKE AND 07H),E 

@POINTO,#'^D' 

A,#(XBYTE TOKE AND 07H),E 

@POINTO,#'^X' 

POINTO 

@POINTO,#'B' 

POINTO 

@POINTO,#'Y' 

A,#(RBIT_TOKE AND 

@POINTO,#'I ' 

POINTO 

0POINTO,#'T' 

POINTO 

0POINTO,#' ' 



;Load PARAMl with data to be output 
;Output data into memory 

Get next token and character 
Jump to EOLMEM if token is not comma token 
Get next token and character after comma 
Check if CR was entered 

;Choose first char, depending on type 
;of memory access in progress 
,B_LAB_1 

_LAB_2 

LAB 3 



07H),T_LAB 

;Choose third char for bit or byte type 
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LOC OBJ 

EACO 08 
EACl AA44 
EAC3 12E7DD 
EAC6 AA45 
EAC8 12E7DD 
EACB 7630 
EACO 75520A 
EADO IIBC 
EAD2 B40102 

EAD5 80B1 
EAD7 02E5BB 
EADA 02E3E4 



LINE 

2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 +1 



SOURCE 



NUMMEN: 



EOLMEM: 
DISERR: 
$EJECT 



INC POINTO 

MOV PARAM1,PNTHGH 

CALL ISAVE AND DISPLAY 

MOV PARAMT,PNTLOW 

CALL ISAVE_AND_DISPLAY 

MOV @POINTO,#'=' 

MOV LINE_START,#OAH 

CALL IGETOKE 

CJNE A, #NUMBER_TOKE, EOLMEM 

JMP LDLOOP 

JMP lEOL CHECK 

JMP IERRUR 



;Get next token and character 

;Check that a number was last char entered 

;Loop unti 1 CR entered 
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LOC OBJ 



EADD 


75431A 


EAEO 


B401F7 


EAE3 


854A47 


EAE6 


12E773 


EAE9 


85474A 


EAEC 


AA4A 


EAEE 


12E672 


EAFl 


C3 


EAF2 


E545 


EAF4 


955A 


EAF6 


E544 


EAF8 


9559 


EAFA 


5005 


EAFC 


12E5C4 


EAFF 


80EB 


EBOl 


22 



LINE 

2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 +1 



SOURCE 



************** 



NAME: FILLMEM 

ABSTRACT: This routine fills the memory selected with a single 
value from PNTLOW and PNTHGH up to the high end of the 
parti ti on. 

INPUTS: PNTLOW, PNTHGH, PARTI T_HI_LOW, PARTIT_HI_H IGH 

OUTPUTS: Memory which was supposed to be accessed by the 
command typed in at the console. 

VARIABLES MODIFIED: ERRNUM, A, TEMP_LOW, VALLOW, PARAMl , C 

ERROR EXITS: lAH (TOKEN MUST BE A NUMBER) 

SUBROUTINES ACCESSED DIRECTLY: IGETEOL, ISTORE, INC_PNT 

*****************************.***********vt************************* 



FILLMEM:MOV 
CJNE 
MOV 
CALL 
MOV 

FILLOOP:MOV 
CALL 
CLR 
MOV 
SUBB 
MOV 
SUBB 
JNC 
CALL 
JMP 

FILLl: RET 

$EJECT 



ERRNUM, #1AH 

A,#NUMBER_TOKE,DISERR 

TEMP_LOW, VALLOW 

IGETEOL 

VALLOW, TEMP_LOW 

PARAMl, VALLOW 

ISTORE 

C 

A, PNTLOW 

A,PARTIT HI LOW 

A, PNTHGH" ~ 

A,PARTIT_HI HIGH 

FILLl 

INC_PNT 

FILLOOP 



;Token must be a number 



;Load PARAMl with single byte data 
;Output data into memory 



;Subtract pointer from ending address 

;to see if partition is full yet 
;If not, continue filling 



MCS-51 MACRO ASSEMBLER 



'SDK-51 MONITOR CODE INTEL PROPRIETARY VERS. #1.03' 



M2,81 



PAGE 



73 



LOC OBJ 



m 



EB02 
€B05 
EB07 
EB09 
EBOB 
EBOE 
EBIO 
EB13 
EB14 
EB15 
EB17 
EBIA 

,B1C 
IE 

B21 
EB23 
EB26 
EB29 
EB2C 
EB20 
EB30 
EB32 
EB35 
EB37 
EB3A 
EB3D 
EB3F 
EB42 
EB45 

B48 
4A 
4C 

B4F 



755D01 

155D 

E55D 

701E 

12E717 

E546 

90EB51 

93 

FA 

5112 

12E5E6 

AB45 

AA44 

12E7F4 

7A3D 

12E5E8 

755D04 

12E66B 

FA 

12E7F9 

E545 

B55A08 

E544 

B55903 

02E3B0 

E55D 

B40108 

12E65D 

12E5C4 

80BB 

7A2C 

12E5E8 

80F4 



EB51 80 



LINE 

2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
27 52 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 



SOURCE 
****************************************************************** 

NAME: OISMEM 

ABSTRACT: This routine displays the data values of the selected 
memory partition to the console. 

INPUTS: PNTLOW, PNTHGH, PARTI T_HI_LOW, PARTIT_H I_HIGH 

OUTPUTS: None 

VARIABLES MODIFIED: COUNTR, A, DPTR, PARAMl , PARAM2 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: INEWLINE, IDI SPLAY_TOKEN , SPACCO, 

ILSTWRD, ICO, IFETCH, ILSTBYT, IWAIT FOR USER, ICONTINUATION LINE 



**************** 

DISMEM: 
DISLOP: 



DISFET: 



COUNTl: 



NOWAIT: 



NTLAST: 



LAB23: 



MOV COUNTR, #1 

DEC COUNTR 

MOV A, COUNTR 

JNZ DISFET 

CALL INEWLINE 

MOV A, SELECT 

MOV DPTR,#LAB23 

MOVC A,@A+DPTR 

MOV PARAMl, A 

CALL IDISPLAY_TOKEN 

CALL SPACCO 

MOV PARAM2, PNTLOW 

MOV PARAMl, PNTHGH 

CALL ILSTWRD 

MOV PARAMl, #'=' 

CALL ICO 

MOV COUNTR, #4 

CALL IFETCH 

MOV PARAMl, A 

CALL ILSTBYT 

MOV A, PNTLOW 

CJNE A,PARTIT_HI_L0W,C0UNT1 

MOV A, PNTHGH 

CJNE A,PARTIT_HI_HIGH,C0UNT1 

JMP IWAIT_FOR_USER 

MOV A, COUNTR 

CJNE A, #1, NTLAST 

CALL ICONTINUATION_LINE 

CALL INC_PNT 

JMP DISLOP 

MOV PARAMl, #',' 

CALL ICO 

JMP NOWAIT 

DB CBYTE TOKE 



**************************** 
;Load counter with 1 



;Jump to DISFET if counter is not zero 

;Move selector into ACC 
;Load DPTR with base of table 

;Setup for DISPLAY_TOKEN 
;Output token 
;Output space 

;Set-up for ILSTWRD 
;Output address 

;Output an equal sign 
;Load counter with 4 
;to get memory location 
;Set-up for ILSTBYT 



;See if PARTIT_LO_LOW=EALOW 
;See if PARTIT_L0_HIGH=EAH6H 

;See if counter = 1, 

;Loop unti 1 PNT is > EA 
;To output a comma 
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LINE 



SOURCE 



EB52 81 


-I 


2768 






DB 


RBYTE TOKE 


EB53 82 


= 1 


2769 






DB 


DBYTE TOKE 


EB54 00 


= 1 


2770 






DB 


00 


EB55 84 


= 1 


2771 






DB 


RBIT TOKE 


EB56 00 


= 1 


2772 






DB 


00 


EB57 86 


= 1 


2773 






DB 


XBYTE TOKE 




= 1 


2774 


+ 1 


$EJECT 
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LOC OBJ 



EB58 
EB5A 
EB5D 
EB60 
EB63 
EB66 
EB69 
EB6A 
EB6C 
EB6E 
EB70 
EB72 
EB74 
EB77 
EB7A 
EB7C 
EB7E 
EB80 
EB82 
EB84 
EB86 
EB89 
EB8C 
EB8D 
EB90 
EB93 



E546 

754318 

B40077 

12E769 

854A62 

854961 

C3 

E545 

9562 

E544 

9561 

4032 

855A45 

855944 

E562 

2564 

F562 

E561 

3563 

F561 

12E5D7 

12E66B 

FA 

12E5CD 

12E5D7 

12E672 



= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 



LINE 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 



SOURCE 
****************************************************************** 

NAME: BMOVE 

ABSTRACT: This routine will transfer CBYTE type memory from 

a specific location to another location in blocks of contiguous 
code. It does not relocate addresses and it is possible 
to lose code by writing a block over the TOP address. The 
pointer direction is changed depending on the direction of 
the move so that no change to the data will occur if the 
destination and source blocks overlap. 

INPUTS: SELECT. PARTIT HI_LOW, PARTIT_HI_HIGH, LENGTH_LOW, 
LENGTH_HIGH, PARTIT_LO_LOW, PARTIT_L0_HI6H 

OUTPUTS: Memory which was supposed to be accessed by the 
command typed in at the console. 

VARIABLES MODIFIED: A, ERRNUM. C, PCNTLO, PCNTHI, PNTLOW, C, 
PARAMl, PNTHGH 

ERROR EXITS: 18H (CBYTE TYPE ONLY) 

SUBROUTINES ACCESSED DIRECTLY: IGETNUM, SWAP_POINTERS , IFETCH, 
DEC_PNT, ISTORE 

****************************************************************** 



BMOVE: MOV A, SELECT 

MOV ERRNUM, #18H 

CJNE A,#(CBYTE_TOKE AND 7),ERRM0D 

CALL IGETNUM 

MOV PCNTLO, VALLOW 

MOV PCNTHI, VALHGH 

CLR C 

MOV A, PNTLOW 

SUBB A, PCNTLO 

MOV A, PNTHGH 

SUBB A, PCNTHI 

JC DOWN_MOVE 

MOV PNTLOW, PART I T_HI_LOW 

MOV PNTHGH,PARTIT_HI_HIGH 

MOV A, PCNTLO 

ADD A,LENGTH_LOW 

MOV PCNTLO, A 

MOV A, PCNTHI 

ADDC A.LENGTH_HIGH 

MOV PCNTHI, A 

UP MOVE:CALL SWAP_POINTERS 

CALL IFETCH 

MOV PARAMl, A 

CALL DEC_PNT 

CALL SWAP_POINTERS 

CALL ISTORE 



;CBYTE type only 



MCS-51 MACRO ASSEMBLER 



'SDK-51 MONITOR CODE INTEL PROPRIETARY VERS. #1.03' 



,12,81 



PAGE 



76 



LOC 


OBJ 




LINE 


SOURCE 






EB96 


C3 


= ] 


L 2830 




CLR 


C 


EB97 


E558 


= 


L 2831 




MOV 


A,PARTIT LO LOW 


EB99 


9545 


= 


L 2832 




SUBB 


A,PNTLOW 


EB9B 


E557 


= 


L 2833 




MOV 


A,PARTIT LO HIGH 


EB9D 


9544 


= 


L 2834 




SUBB 


A,PNTHGH 


EB9F 


5025 


= : 


L 2835 




JNC 


BEND 


EBAl 


12E5CD 


= 


L 2836 




CALL 


DEC PNT 


EBA4 


80E0 


= : 


I 2837 




JMP 


UP_MOVE 






= 


I 2838 


DOWN MOVE: 




EBA6 


12E5D7 


= ; 


L 2839 




CALL 


SWAP POINTERS 


EBA9 


12E66B 


= ; 


L 2840 




CALL 


IFETCH 


EBAC 


FA 


= ] 


[ 2841 




MOV 


PARAM1,A 


EBAD 


12E5C4 


= : 


[ 2842 




CALL 


INC PNT 


EBBO 


12E5D7 


= : 


L 2843 




CALL 


SWAP POINTERS 


EBB3 


12E672 


= : 


L 2844 




CALL 


ISTORE 


EBB6 


C3 


= : 


L 2845 




CLR 


C 


EBB7 


E545 


= : 


[ 2846 




MOV 


A,PNTLOW 


EBB9 


955A 


= : 


[ 2847 




SUBB 


A.PARTIT HI LOW 


EBBB 


E544 


= ] 


L 2848 




MOV 


A,PNTHGH 


EBBD 


9559 


= ; 


2849 




SUBB 


A,PARTIT HI HIGH 


EBBF 


5005 


= ; 


2850 




JNC 


BEND 


EBCl 


12E5C4 


= : 


2851 




CALL 


INC PNT 


EBC4 


80E0 


= ; 


L 2852 




JMP 


DOWN MOVE 


EBC6 


22 


= ■ 


2853 
L 2854 +1 


BEND: 
$EJECT 


RET 
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EBC7 


85485B 


EBCA 


IIBC 


EBCC 


B4070B 


EBCF 


E55B 


EBDl 


B4884D 


EBD4 


754319 


EBD7 


02E3E4 


EBDA 


754305 


EBDD 


B404F7 


EBEO 


IIBC 


EBE2 


B40130 


EBE5 


E55B 


EBE7 


B48903 


EBEA 


12ECE1 


EBED 


12E7A2 


EBFO 


12ECF2 


EBF3 


E548 


EBF5 


B4021A 


EBF8 


IIBC 


EBFA 


B407F0 


EBFD 


755204 


ECOO 


7824 


EC02 


7641 



LINE 

2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 



SOURCE 
****************************************************************** 

NAME: BR_CMD 

ABSTRACT: This routine checks a token to see if it is a 

breakpoint display or change. If it is change, it sets the pamameters 
of the range and clears or sets the breakpoints requested. (ABR is 
a change only command). If it is a display command, each breakpoint 
is output to the console. Reset is the default condition. 
If the token is BR, the entire breakpoint RAM is cleared and then 
breakpoints are added. If it is ABR, they are added without clearing 
RAM first. 

INPUTS: TOKSTR 

OUTPUTS: Bits within the breakpoint hardware register. 

VARIABLES MODIFIED: TOKSAV, A, ERRNUM, PARAMl , PARAM2, PARAM3, PARAM4, 
LINE START, POINTO, PNTLOW, PNTHGH, DPTR, VPC_LOW, VPC_HIGH, 
ANY_BR_FLAG, FIRST_FLAG 

ERROR EXITS: 19H (DISPLAY ONLY COMMAND) 

05H (EQUAL OR RETURN EXPECTED) 
OCH (NUMBER OR RESET REQUIRED) 

SUBROUTINES ACCESSED DIRECTLY: IGETOKE, lERROR, IGET_PART, IEOL_CHECK 
IGETEOL, LSSEQL, IDI SPLAY_TOKEN , I WAIT_FOR_USER , INC_PNT, 
ICONTINUATION_LINE, ILSTWRD, SPACCO, INEWLINE, ICO, lERROR 
BRK LINE HDR, SETBRK, CLRBRK 



************ 

BR_CMD: MOV 
CALL 
CJNE 
MOV 
CJNE 
MOV 

ERRMOD: JMP 

EQLMOD: MOV 
CJNE 
CALL 
CJNE 
MOV 
CJNE 
CALL 

NUMMOD: CALL 
CALL 
MOV 
CJNE 
CALL 
CJNE 
MOV 
MOV 
MOV 



*************************** 
TOKSAV, TOKSTR 
IGETOKE 

A, #EOL_TOKE, EQLMOD 
A, TOKSAV 

A,#ABR TOKE,LSTBRK 
ERRNUM7#19H 
lERROR 
ERRNUM, #05H 
A, #EQUAL_TOKE, ERRMOD 
IGETOKE 

A,#NUMBER_TOKE,RSTMOD 
A, TOKSAV 

A, #BR_TOKE, NUMMOD 
CLRBRK 
IGET_PART 
SETBRK 
A, TOKSTR 

A,#COMMA_TOKE,ENDMOD 
IGETOKE 

A, #EOL_TOKE, NUMMOD 
LINE_START,#04H 
POINTO, #LINBUF 
(aP0INT0,#'A' 



**************************** 
Save last token for comparison 
Get next token 

Check if token is end of line 
Move last token into ACC 
Jump to list mod if not ABR token 
ABR is not a displayable command 

;Equal or return expected 
;Error if '=' not entered here 



Recall last token entered 
Check if it was break token 
Clear breakpoints 



;Recall present token 
;Check if comma was entered 



;Check for EOL 
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EC04 


08 


EC05 


7642 


EC07 


08 


EC08 


7652 


ECOA 


08 


ECOB 


763D 


ECOD 


IIBC 


ECOF 


B407DB 


EC12 


02E5BB 


EC15 


75430C 


EC18 


B40EBC 


ECIB 


12ECE1 


ECIE 


02E773 


EC21 


E4 


EC22 


F545 


EC24 


F544 


EC26 


C202 


EC28 


D203 


EC2A 


90C000 


EC2D 


7A1F 


EC2F 


7BFF 


EC31 


AC44 


EC33 


AD45 


EC35 


12E74B 


EC38 


400D 


EC3A 


200207 


EC3D 


12ECD5 


EC40 


7A0E 


EC42 


5112 


EC44 


02E3B0 


EC47 


E545 


EC49 


2582 


EC4B 


F582 


EC4D 


5002 


EC4F 


0583 


EC51 


E544 


EC53 


2583 


EC55 


F583 


EC57 


EO 


EC58 


30E005 


EC5B 


12E5C4 


EC5E 


80CA 


EC60 


85455E 


EC63 


85445F 


EC66 


D202 


EC68 


90C000 


EC6B 


AC44 


EC6D 


AD45 


EC6F 


12E74B 


EC72 


5019 


EC74 


E545 


EC76 


2582 



LINE 



SOURCE 



1 2910 




INC 


POINTO 


1 2911 




MOV 


@POINTO,#'B' 


1 2912 




INC 


POINTO 


1 2913 




MOV 


(aP0INT0,#'R' 


1 2914 




INC 


POINTO 


1 2915 




MOV 


(3P0INT0,#'= ' 


1 2916 




CALL 


IGETOKE 


1 2917 




CJNE 


A,#EOL TOKE,NUMMOD 


1 2918 


ENDMOD: 


JMP 


lEOL CHECK 


1 2919 


RSTMOD: 


MOV 


ERRNUM,#OCH 


1 2920 




CJNE 


A,#RESET TOKE,ERRMOD 


1 2921 




CALL 


CLRBRK 


1 2922 




JMP 


IGETEOL 


1 2923 


.****•*•*•**•**************•■*******•* 


1 2924 


LSTBRK: 


CLR 


A 


1 2925 




MOV 


PNTLOW,A 


1 2926 




MOV 


PNTHGH,A 


i 2927 




CLR 


ANY BR FLAG 


1 2928 




SETB 


FIRST FLAG 


1 2929 


LAB2: 


MOV 


DPTR,?BRKOFF 


1 2930 




MOV 


PARAM1,#MAXHGH 


1 2931 




MOV 


PARAM2,#MAXL0W 


1 2932 




MOV 


PARAM3,PNTHGH 


1 2933 




MOV 


PARAM4,PNTL0W 


1 2934 




CALL 


LSSEQL 


1 2935 




JC 


LAB5B 


1 2936 




JB 


ANY_BR_FLAG, BRKEND 


1 2937 








1 2938 




CALL 


BRK LINE HDR 


1 2939 




MOV 


PARAM1,#RESET TOKE 


1 2940 




CALL 


IDISPLAY TOKEN 


1 2941 


BRKEND: 


JMP 


IWAIT FOR USER 


1 2942 


LAB5B: 


MOV 


A.PNTLOW 


1 2943 




ADD 


A,DPL 


1 2944 




MOV 


DPL,A 


1 2945 




JNC 


LAB5A 


1 2946 




INC 


DPH 


1 2947 


LAB5A: 


MOV 


A,PNTHGH 


1 2948 




ADD 


A, DPH 


1 2949 




MOV 


DPH, A 


1 2950 




MOVX 


A.@DPTR 


1 2951 




JNB 


ACC.0,LAB3 


1 2952 




CALL 


INC PNT 


1 2953 




JMP 


LAB2 


1 2954 








1 2955 


LAB3: 


MOV 


VPC LOW,PNTLOW 


1 2956 




MOV 


VPC HI6H,PNTH6H 


1 2957 




SETB 


ANY BR FLAG 


1 2958 


BKILOP: 


MOV 


DPTR,#BRKOFF 


1 2959 




MOV 


PARAM3,PNTHGH 


1 2960 




MOV 


PARAM4,PNTL0W 


1 2961 




CALL 


LSSEQL 


1 2962 




JNC 


LSTOUT 


1 2963 




MOV 


A,PNTLOW 


1 2964 




ADD 


A,DPL 



;Number or reset required 
;Checl< for reset entered 



;Clear low byte of break pointer 
;Clear high byte of break pointer 



Set up for LSSEQL test 

Check that P??? <= MAX??? 

Exit if greater than 

If any breakpoints were displayed 

don't display reset 



Load ACC with break pointer low addr 
Add low addr of break to pointer 
Put new low addr back into DPL 

;Increment DPH if DPL had a carry 



;Load ACC with external RAM memory 
;Branch if break is set. 



;Save break pointer low 
;Save break pointer high 



Set up for LSSEQL 

Check that P??? <= MAX??? 

Jump to LSTOUT if greater than 

Load ACC with low addr of break pointer 

Add break RAM low addr offset to pointer low 
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LOC 


OBJ 




LINE 


SOURCE 






EC78 


F582 


= 


L 2965 




MOV 


DPL,A 


EC7A 


5002 


= 


I 2966 




JNC 


LAB6A 


EC7C 


0583 


= 


1 2967 




INC 


DPH 


EC7E 


E544 


= 


I 2968 


LAB6A: 


MOV 


A,PNTHGH 


EC80 


2583 


= 


I 2969 




ADD 


A, DPH 


EC82 


F583 


= 


L 2970 




MOV 


DPH, A 


EC84 


EO 


= 


I 2971 




MOVX 


A,(BDPTR 


EC85 


20E005 


= 


I 2972 




JB 


ACC.O, LSTOUT 


EC88 


12E5C4 


= 


L 2973 




CALL 


INC PNT 


EC8B 


80DB 


= 


1 2974 




JMP 


BKILOP 


EC8D 


AC5F 


= 


I 2975 


LSTOUT: 


MOV 


PARAM3,VPC HIGH 


EC8F 


AD5E 


= 


I 2976 




MOV 


PARAM4,VPC LOW 


EC91 


12E74B 


= 


1 2977 




CALL 


LSSEQL 


EC94 


5094 


= 


L 2978 




JNC 


LAB2 


EC96 


200303 


= 


L 2979 




JB 


FIRST FLAG, LB 10 


^C99 


12E65D 


= 


L 2980 




CALL 


ICONTINUATION LINE 


mc9c 


12ECD5 


= 


L 2981 


LB_10: 


CALL 


BRK LINE HDR 


P9F 


C203 


= 


L 2982 




CLR 


FIRST FLAG 


^CAl 


AA5F 


= 


L 2983 




MOV 


PARAMT,VPC HIGH 


ECA3 


AB5E 


= 


I 2984 




MOV 


PARAM2,VPC LOW 


ECA5 


12E7F4 


= 


L 2985 




CALL 


ILSTWRD 


ECA8 


055E 


= 


L 2986 




INC 


VPC LOW 


/€CAA 


E55E 


= 


L 2987 




MOV 


A,VPC LOW 


ECAC 


7002 


= : 


L 2988 




JNZ 


LAB7 


ECAE 


055F 


= 


L 2989 




INC 


VPC HIGH 


ECBO 


E55F 


= ; 


L 2990 


LAB7: 


MOV 


A, VPC HIGH 


ECB2 


B54407 


= : 


[ 2991 




CJNE 


A, PNTHGH, OUTOKE 


ECB5 


E55E 


= ; 


[ 2992 




MOV 


A, VPC LOW 


ECB7 


B54502 


= : 


2993 




CJNE 


A, PNTLOW, OUTOKE 


ECBA 


812A 


_ ■ 


2994 
2995 




JMP 


LAB2 


ECBC 


12E5E6 


= : 


2996 


OUTOKE: 


CALL 


SPACCO 


^CBF 


7A0D 


= ; 


2997 




MOV 


PARAM1,#T0 TOKE 


l^ci 


5112 


= ; 


2998 




CALL 


IDISPLAY TOKEN 


■ C3 


12E5E6 


= ; 


2999 




CALL 


SPACCO 


^C6 


E545 


= ; 


3000 




MOV 


A, PNTLOW 


ECC8 


14 


= : 


3001 




DEC 


A 


ECC9 


FB 


= ; 


3002 




MOV 


PARAM2,A 


ECCA 


F4 


= : 


3003 




CPL 


A 


ECCB 


AA44 


= ; 


3004 




MOV 


PARAMl, PNTHGH 


ECCD 


7001 


= : 


3005 




JNZ 


LAB8 


ECCF 


lA 


= ; 


3006 




DEC 


PARAMl 


ECDO 


12E7F4 


_ ■ 


3007 
3008 


LAB8: 


CALL 


ILSTWRD 


ECD3 


812A 


_ • 


3009 
3010 




JMP 


LAB2 






= : 


3011 


BRK_LINE HDR: 




ECD5 


12E717 


= : 


3012 




CALL 


INEWLINE 


ECD8 


7A89 


= : 


3013 




MOV 


PARAMl, #BR TOKE 


ECDA 


5112 


= : 


3014 




CALL 


IDISPLAY TOKEN 


||£DC 


7A3D 


=: 


3015 




MOV 


PARAMl, #^=' 


l"= 


02E5E8 


= ; 


3016 
3017 +1 


$ e j e c t 


JMP 


ICO 



;Put new addr back into DPL 
;Increment DPH if DPL produced a carry 



;Load ACC with data in break RAM 
;Branch if break is off. 

;Loop until occurs or end of break RAM 

;Set up for LSSEQL 

;Check that SA??? <= MAX??? 

;Jump to BRKO and exit if true 



;Set up for ILSTWRD 

;Output starting addr of one's in BRK RAM 

;Increment starting address low 

;Check for rollover 

;Increment starting addr high if true 

;Jump to OUTOKE if VPC_HIGH+1 <> PNTHGH 

;Jump to OUTOKE if VPC_L0W+1 <> PNTLOW 
;Go process the end of line. 



;Call di spl ay_token(to_toke) . 

;Load ACC with break pointer low 
;Decrement break pointer low 
;Set up for ILSTWRD 

;Set up for ILSTWRD 

;Check for roll over 

;Decrement break pointer high if true 



;Continue the display of break RAM. 
;as soon as the user hits a character 
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LINE 



SOURCE 







= 1 


3018 












= 1 


3019 


;*****END OF 


LSTBRK***** 






= 1 


3020 








ECEl 


7AFF 


= 1 


3021 


CLRBRK: 


MOV 


PARAM1,#MAXL0W 


ECE3 


7B20 


= 1 


3022 




MOV 


PARAM2,#(MAXHGH+1) 


ECE5 


90C000 


= 1 


3023 




MOV 


DPTR,#BRKOFF 


ECE8 


7401 


= 1 


3024 




MOV 


A,#01H 


ECEA 


FO 


= 1 


3025 


CLRLOP: 


MOVX 


@DPTR,A 


ECEB 


A3 


= 1 


3026 




INC 


DPTR 


ECEC 


DAFC 


= 1 


3027 




DJNZ 


PARAMl, CLRLOP 


ECEE 


FO 


= 1 


3028 




MOVX 


(aDPTR,A 


ECEF 


DBF9 


= 1 


3029 




DJNZ 


PARAM2, CLRLOP 


ECFl 


22 


= 1 


3030 




RET 








= 1 


3031 


;*****END OF 


CLRBRK***** 






= 1 


3032 








ECF2 


C3 


= 1 


3033 


SETBRK: 


CLR 


C 


ECF3 


E55A 


= 1 


3034 




MOV 


A,PARTIT HI LOW 


ECF5 


9558 


= 1 


3035 




SUBB 


A,PARTIT LO LOW 


ECF7 


F582 


= 1 


3036 




MOV 


DPL,A 


ECF9 


E559 


= 1 


3037 




MOV 


A,PARTIT HI HIGH 


ECFB 


20E726 


= 1 


3038 




JB 


ACC. 7, BRKERR 


ECFE 


9557 


= 1 


3039 




SUBB 


A,PARTIT LO HIGH 


EDOO 


F583 


= 1 


3040 




MOV 


DPH,A 


ED02 


A3 


= 1 


3041 




INC 


DPTR 


ED03 


0583 


= 1 


3042 




INC 


DPH 


ED05 


AA83 


= 1 


3043 




MOV 


PARAMl, DPH 


EDO? 


AB82 


= 1 


3044 




MOV 


PARAM2,DPL 


ED09 


90C000 


= 1 


3045 




MOV 


DPTR,#BRKOFF 


EDOC 


E557 


= 1 


3046 




MOV 


A,PARTIT LO HIGH 


EDOE 


541F 


= 1 


3047 




ANL 


A,#MAXHGH 


EDIO 


FD 


= 1 


3048 




MOV 


TEMP, A 


EDll 


E558 


= 1 


3049 




MOV 


A,PARTIT LO LOW 


ED13 


2582 


= 1 


3050 




ADD 


A,DPL 


ED15 


F582 


= 1 


3051 




MOV 


DPL,A 


ED17 


ED 


= 1 


3052 




MOV 


A, TEMP 


ED18 


3583 


= 1 


3053 




ADDC 


A, DPH 


EDIA 


F583 


= 1 


3054 




MOV 


DPH, A 


EDIC 


E4 


= 1 


3055 


OUTIBK: 


CLR 


A 


EDID 


FO 


= 1 


3056 




MOVX 


(3DPTR,A 


EDIE 


A3 


= 1 


3057 




INC 


DPTR 


EDIF 


DBFB 


= 1 


3058 




DJNZ 


PARAM2, OUTIBK 


ED21 


DAF9 


= 1 


3059 




DJNZ 


PARAMl, OUTIBK 


ED23 


22 


= 1 


3060 




RET 








= 1 


3061 


;*****END OF 


SETBRK***** 






= 1 


3062 








ED24 


75430D 


_ -1 


3063 
3064 


BRKERR 


MOV 


ERRNUM,#ODH 


ED27 


02E3E4 


= 1 


3065 
3066 
3067 
3068 +1 


$EJECT 


JMP 


lERROR 



;Load PARAMl with size of break RAM, low 8 bits 

;Load PARAM2 with size of break RAM+l,high bits 

;Load DPTR with break RAM offset 

;To clear the break condition. 

;Fill break RAM 

;Increment pointer at break RAM 

;Repeat loop until PARAM1=0 

;Once more for PARAM1=0 

;Continue loop until PARAM2=0 

:Exit from CLRBRK 



;Load ACC with ending addr low 

;To obtain number of locations to set 

;Save low number in PARAM4 

;Load ACC with ending addr high 

;Subtract starting addr high from ending addr 
;Save high break count in PARAM3 



;Put starting addr low in ACC 

;Add break offset low 

;Put back into data pointer 

;Load ACC with starting addr high 

;Add break offset high 

;Load DPH with starting addr high + offset 

;To output O'S 

;Load break RAM 

;Increment break RAM pointer 

;Loop until count low=0 

;Loop until PARAM3=0 

;Exit from SETBRK 



7 is the error number for 
break range low > range high 
Exit from break routine on error 
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ED2A 7545E0 
ED2D 02ED42 



ED30 7545D0 
ED33 02ED42 



ED36 754581 
ED39 02ED42 



3C 7545F0 
3F 02ED42 



ED42 12E784 
ED45 754400 
ED48 754601 
ED4B 500A 
ED4D 12E66B 
ED50 FA 
ED51 12E7F9 
ED54 02E3B0 

ED57 12E769 
ED5A AA4A 
ED5C 02E672 



LINE 

3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
^117 
3M8 +1 



SOURCE 



************************************************************* 



********* 

NAME: ACC_CMD/ PSW_CMD/ SP_CMD/ B_CMD 

ABSTRACT: Displays or modifies the byte which is referenced 
by the user register images passed to it. 

INPUTS: None 

OUTPUTS: Users version of the PC, DPTR, TMO, TMl 

VARIABLES MODIFIED: PNTLOW, PNTHGH, SELECT, PARAMl 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: I S IT_DISPLAY , IFETCH, ILSTBYT, 
IWAIT_FOR_USER, ISTORE, KEY_BYTES 

ACC CMD: 

MOV PNTLOW, #ACC 
JMP KEY BYTE 

PSW CMD: 

MOV PNTLOW, #PSW 
JMP KEY BYTE 

.ic-kic-k-k*-k-k-k*-k**-k*-kic *T* ********************************************** 

SP CMD: 

MOV PNTLOW, #SP 
JMP KEY BYTE 

. ^^^^^^^^^jf******* ic^ic ************************************************* 

B CMD: 

MOV PNTLOW, #B 

JMP KEY BYTE 
.•*•***•***•****** *T* ********************************************** 

KEY BYTE: 

CALL ISIT_DISPLAY 

MOV PNTHGH, #00H 

MOV SELECT, #(RBYTE_T0KE AND 07H) ;Set-up for fetch 

JNC CHANGE 



CHANGE: 



CALL IFETCH 

MOV PARAMl, A 

CALL ILSTBYT 

JMP IWAIT_FOR_USER 

CALL IGETNUM 



;Can ILSTBYT (result) to display it 



;Get the numeric parameter 



$EJECT 



MOV 
JMP 



PARAMl, VALLOW 
ISTORE 
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LOC 


OBJ 




LINE 






:: ■ 


I 3119 






= ; 


L 3120 








[ 3121 








[ 3122 








L 3123 








L 3124 








L 3125 








L 3126 








L 3127 








L 3128 








L 3129 






_ • 


L 3130 






= ; 


I 3131 








L 3132 






= • 


L 3133 






= : 


L 3134 






= ; 


L 3135 








L 3136 






= • 


[ 3137 






= ] 


L 3138 






= ] 


L 3139 






= ] 


L 3140 






= ] 


[ 3141 


ED5F 


12E784 


= ] 


L 3142 


ED62 


500C 


= ] 


L 3143 


ED64 


12EF9D 


= : 


[ 3144 


ED67 


FB 


= : 


L 3145 


ED68 


AAFO 




I 3146 


ED6A 


12E7F4 


= 


L 3147 


ED6D 


02E3B0 




L 3148 






= : 


L 3149 


ED70 


12E769 




L 3150 


ED73 


AA49 


= 


L 3151 


ED75 


AB4A 


= 


L 3152 


ED77 


12EFA8 


= 1 


L 3153 


ED7A 


02E773 


= 


L 3154 






=; 


L 3155 






= 


L 3156 


ED7D 


754583 




L 3157 


ED80 


754782 


= 


L 3158 


ED83 


02ED95 


= 


L 3159 






= 


L 3160 






= 1 


L 3161 


ED86 


75458C 


= 


L 3162 


ED89 


75478A 


= 


L 3163 


ED8C 


02ED95 


= 


L 3164 








L 3165 






= 


L 3166 


ED8F 


75458D 


= 


L 3167 


ED92 


75478B 


= 


L 3168 






= 


L 3169 






= 


L 3170 


ED95 


12E784 


= 


L 3171 


ED98 


754601 


= 


L 3172 


ED9B 


754400 


= 


L 3173 



SOURCE 
******************************************************************* 

NAME: PC_CMD/ DPTR_CMD/ TMO_CMD/ TM1_CMD 

ABSTRACT: Decodes and exeutes those commands which display or alter 
sixteen bit variables which have unique keywords to identify 
them. 

INPUTS: None 

OUTPUTS: Users version of the PC, DPTR, TMO and TMl 

VARIABLES MODIFIED: PARAMl , PARAM2, PNTLOW, TEMP_LOW, PNTHGH, A 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: IS IT_D ISPLAY , READ_PC, ILSTWRD, 
WRITE_PC, IFETCH, ISTORE, IGETEOL, IGETNUM, I WAIT_FOR_USER , 
KEYWORD_DISPLAY 

************* *.* ******************************************************* 
PC CMD: 



;Get the user program counter. 

;And set up parameters to display it. 



CALL 


ISIT DISPLAY 


JNC 


PC CHA 


CALL 


READ PC 


MOV 


PARAM2,A 


MOV 


PARAMl, B 


CALL 


ILSTWRD 


JMP 


IWAIT_FOR_USER 


CALL 


IGETNUM 


MOV 


PARAMl, VALHGH 


MOV 


PARAM2,VALL0W 


CALL 


WRITE PC 


JMP 


IGETEOL 



PC CHA: 



DPTR_CMD: 

MOV PNTLOW, #DPH 

MOV TEMP_LOW,#DPL 

JMP KEYWORD_DISPLAY 
.*******************■************•*************•*■*******•****•****•* 

fMO_CMD: 

MOV PNTLOW, #THt) 

MOV TEMP LOW,#TLO 

JMP KEYWTJRD_DISPLAY 

.***••*•*****•*•***•***••*********•••*************•***************• 

fMl_CMD: 

MOV PNTLOW, #TH1 

MOV TEMP_L0W,#TL1 
.*****************•**************************•*•*************•**•** 

l<EYWORD_DISPLAY: 

CALL ISIT_DISPLAY 

MOV SELECT, #(RBYTE_TOKE AND 07H) 

MOV PNTHGH, #0 
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LOC OBJ 

ED9E 5013 

EDAO 12E66B 

EDA3 C547 

EDA5 F545 

EDA7 12E66B 

EDAA FB 

EDAB AA47 

EDAD 12E7F4 

EDBO 02E3B0 

EDB3 12E769 

E0B6 AA49 

EDB8 12E672 

EDBB 854745 

EDBE AA4A 

EDCO 12E672 

kEDC3 02E773 



LINE 



SOURCE 



1 3174 


1 3175 


1 3176 


1 3177 


1 3178 


1 3179 


1 3180 


1 3181 


1 3182 


1 3183 


1 3184 


1 3185 


1 3186 


1 3187 


1 3188 


1 3189 


1 3190 


1 3191 



JNC 


WCHANGE 


CALL 


IFETCH 


XCH 


A, TEMP LOW 


MOV 


PNTLOW,A 


CALL 


IFETCH 


MOV 


PARAM2,A 


MOV 


PARAM1,TEMP LOW 


CALL 


ILSTWRD 


JMP 


IWAIT_FOR_USER 


WCHANGE: 




CALL 


IGETNUM 


MOV 


PARAM1,VALH6H 


CALL 


ISTORE 


MOV 


PNTLOW,TEMP LOW 


MOV 


PARAM1,VALL'(JW 


CALL 


ISTORE 



;Wait for CR then start the monitor. 
;If it is, get the data to be loaded. 



JMP IGETEOL ;Process end of line and return to the 



3192 +1 $EJECT 
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LOC 


OBJ 




LINE 
3193 






= 1 


3194 






= 1 


3195 






= 1 


3196 






= 1 


3197 






= 1 


3198 






= ] 


3199 






= 1 


3200 






= ] 


3201 






= ] 


3202 






= ] 


L 3203 






= ] 


3204 






= ] 


L 3205 






= ] 


3206 






= ] 


L 3207 






= ] 


L 3208 






= ] 


L 3209 






= ] 


[ 3210 






= 


L 3211 






= ] 


L 3212 






= 


L 3213 






= ] 


L 3214 






= 


L 3215 






= 


L 3216 






= 


L 3217 






= 


L 3218 






= 


L 3219 


EDC6 


C082 


= 


L 3220 


EDC8 


C083 


= 


I 3221 


EDCA 


90B0E0 


= 


L 3222 


EDCD 


FO 


= 


1 3223 


EDCE 


758283 


= 


L 3224 


EDDl 


DOEO 


= 


I 3225 


EDD3 


FO 


= 


1 3226 


EDD4 


1582 


= 


L 3227 


EDD6 


DOEO 


= 


L 3228 


EDD8 


FO 


= 


I 3229 


EDD9 


7582A8 


= 


1 3230 


EDDC 


E5A8 


= 


I 3231 


EDDE 


FO 


= 


1 3232 


EDDF 


75A800 


= 


1 3233 


EDE2 


758288 


= 


1 3234 


EDE5 


E588 


= 


1 3235 


EDE7 


FO 


= 


1 3236 


EDE8 


758800 


= 


1 3237 


EDEB 


7582F0 


= 


1 3238 


EDEE 


E5F0 


= 


1 3239 


EDFO 


FO 


= 


1 3240 


EDFl 


7582B8 


= 


1 3241 


EDF4 


E5B8 


= 


1 3242 


EDF6 


FO 


= 


1 3243 


EDF7 


758290 


= 


1 3244 


EDFA 


E590 


= 


1 3245 


EDFC 


FO 


= 


1 3246 


EDFD 


7582B0 


= 


1 3247 



SOURCE 

+1 $INCLUDE(:F1:XQT.INC) 

******************************************************************* 

NAME: (I)BREAK 

ABSTRACT: Control is transferred to this point when a break 
interrupt occurs. The current user status is saved in the 
page of external RAM starting at 'RAMOFF' and control then 
passes to one of the return routines, STEP return and RUN 
return. 

INPUTS: BREAK_STATUS, MON_FLAGS 

OUTPUTS: LINE_START, CAUSE_IMAGE, UPI_DATA_IMAGE , all the users 
RAM and register image area. 

VARIABLES MODIFIED: DPTR, SP, A, IE, POINTO, CAUSE_IMAGE, 
ERRNUM, C, B, PARAMl, LINE_START, UPI_DATA_I MAGE 

ERROR EXITS: 16H (EXECUTION OVER VECTOR AT LOCATION 3) 

SUBROUTINES ACCESSED DIRECTLY: ICSTS, UPI_IN, WRITE_PC, READ_PC, 
INIT_IO, UPI_OUT, SET_BAUD, UPI_CMD, SIGN_ON, STE P51_RETURN , 
UNBREAK, RUN_USER_RETURN 

******************************************************************** 



IBREAK: 



PUSH 


DPL 


PUSH 


DPH 


MOV 


DPTR,#(RAMOFF+ACC 


MOVX 


(aDPTR,A 


MOV 


DPL,#DPH 


POP 


ACC 


MOVX 


@DPTR,A 


DEC 


DPL 


POP 


ACC 


MOVX 


(aDPTR,A 


MOV 


DPL,#IE 


MOV 


A, IE 


MOVX 


@DPTR,A 


MOV 


IE,#OOH 


MOV 


DPL,#TCON 


MOV 


A,TCON 


MOVX 


@DPTR,A 


MOV 


TCON,#0 


MOV 


DPL,#B 


MOV 


A,B 


MOVX 


@DPTR,A 


MOV 


DPL,#IP 


MOV 


A, IP 


MOVX 


(aDPTR,A 


MOV 


DPL,#P1 


MOV 


A, PI 


MOVX 


@DPTR,A 


MOV 


DPL,#P3 



;Save DPTR in the user stack. 

;Save user ACC. 

;Move user DPH from the stack to save area. 



;Move user DPL from the stack to save area. 
;Save the special function registers. 



;Start with 'B'. 
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LOC OBJ 



m 



EEOO 
EE02 
EE03 
EE06 
EE08 
EE09 
EEOC 
EEOE 
EEOF 
EE12 
EE14 
EE15 
EE16 
EE17 
EEIA 
EEIC 
,EE1D 
E20 
EE22 
EE23 
EE26 
EE28 
EE29 
EE2C 
EE2E 
EE2F 
EE32 
EE34 
EE35 
EE38 
EE3B 



m 



EE3C 
EE3D 



E3F 
EE40 
EE41 
EE42 
EE43 
EE46 
EE49 
EE4B 
EE4C 
EE4E 
EE50 
EE51 
EE54 
EE57 
EE58 



E5B0 

FO 

7582D0 

E5D0 

FO 

758298 

E598 

FO 

758281 

E581 

14 

14 

FO 

75828C 

E58C 

FO 

75828D 

E58D 

FO 

75828A 

E58A 

FO 

75828B 

E58B 

FO 

758289 

E589 

FO 

758200 

75D000 

E8 

FO 

7801 

A3 

E6 

FO 

08 

B880F9 

90B0FE 

DOEO 

FO 

1582 

DOEO 

FO 

758107 

7582FA 

EO 

F520 



m 



EE5A 7582FB 
E5D EO 
E5E 6023 



EE60 90C000 



LINE 

3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 



SOURCE 





MOV 


A,P3 




MOVX 


@DPTR,A 




MOV 


DPL,#PSW 




MOV 


A,PSW 




MOVX 


@DPTR,A 




MOV 


DPL,#SCON 




MOV 


A, SCON 




MOVX 


@DPTR,A 




MOV 


DPL,#SP 




MOV 


A,SP 




DEC 


A 




DEC 


A 




MOVX 


(BDPTR.A 




MOV 


DPL,#THO 




MOV 


A,THO 




MOVX 


@DPTR,A 




MOV 


DPL,#TH1 




MOV 


A,TH1 




MOVX 


(aDPTR,A 




MOV 


DPL,#TLO 




MOV 


A,TLO 




MOVX 


(aDPTR,A 




MOV 


DPL,#TL1 




MOV 


A,TL1 




MOVX 


@DPTR,A 




MOV 


DPL,#TMOD 




MOV 


A,TMOD 




MOVX 


(3DPTR,A 




MOV 


DPL,#0 




MOV 


PSW,#0 




MOV 


A,RO 




MOVX 


(aDPTR,A 




MOV 


P0INT0,#01H 


RK_ 


LOOP: 






INC 


DPTR 




MOV 


A,0POINTO 




MOVX 


(aDPTR,A 




INC 


POINTO 




CJNE 


P0INT0,#128,BRK LOOP 




MOV 


DPTR,#(RAM0FF+UPC+1) 




POP 


ACC 




MOVX 


@DPTR,A 




DEC 


DPL 




POP 


ACC 




MOVX 


@DPTR,A 




MOV 


SP,#STACK 




MOV 


DPL,#MON FLAGS 




MOVX 


A,@DPTR 




MOV 


20H,A 




MOV 


DPL,#BREAK STATUS 




MOVX 


A,(3DPTR 




JZ 


BREAK_CONTINUE 




MOV 


DPTR,#BRKOFF 



;Compensate the SP for the break interrupt 



;Save the user internal RAM. 
;Set DPTR to start of save area. 
;Select register bank 0. 
;Save users RO (our POINTO) 

;Then save user RAM. 



;Get first byte of PC into 8155 
;Save second byte of PC off stack 



;Move the monitor flags storage area to the 
;first eight bit locations. 

;See if break was invoked by the power 
;on and skip further checks if it was. 
;If not continue. 
;Find the cause of the break 
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OBJ 


EE63 


EO 


EE64 


F560 


EE66 


543C 


EE68 


7019 


EE6A 


12E602 


EE6D 


4009 


EE6F 


754316 


EE72 


756004 


EE75 


02E3E4 


EE78 


12E64C 


EE7B 


547F 


EE7D 


B41B63 


EE80 


756002 


EE83 


75A800 


EE86 


758107 


EE89 


E560 


EE8B 


20E409 


EE8E 


5428 


EE90 


6015 


EE92 


E560 


EE94 


30E610 


EE97 


12EF9D 


EE9A 


C3 


EE9B 


9401 


EE9D 


5002 


EE9F 


15F0 


EEAl 


FB 


EEA2 


AAFO 


EEA4 


12EFA8 


EEA7 


12E386 


EEAA 


7A83 


EEAC 


12E625 


EEAF 


7A00 


EEBl 


12E638 


EEB4 


12E64C 


EEB7 


12E386 


EEBA 


12F229 


EEBD 


A201 


EEBF 


755200 


EEC2 


E4 


EEC3 


92E6 


EEC5 


FA 


EEC6 


12E625 


EEC9 


90B0FB 


EECC 


EO 


EECD 


7003 


EECF 


02E2CC 


EED2 


E560 


EED4 


541E 


EED6 


6003 



LINE 

3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 



SOURCE 



MOVX A,(9DPTR 

MOV CAUSE_IMAGE,A 

ANL A,#03CH 

JNZ BREAK_CONTINUE 

CALL ICSTS 

JC BRKMORE 

MOV ERRNUM,#16H 

MOV CAUSE_IMAGE,#4 

JMP lERROR 



BRKMORE: 

CALL 

ANL 

CJNE 

MOV 
BREAK CONTINUE: 



MOV 

MOV 

MOV 

JB 

ANL 

JZ 

MOV 

JNB 



UPI_IN 

A,#7FH 

A,#ESC,PRE UNBREAK 

CAUSE_IMAGr,#2 



IE,#0 

SP,#STACK 

A,CAUSE_IMAGE 

ACC.4,BRK3 

A,#28H 

BRK4 

A,CAUSE_IMAGE 

ACC.6,BRK4 



BRK3: CALL READ_PC 

CLR C 

SUBB A,#l 

JNC BRK5 

DEC B 

BRK5: MOV PARAM2,A 

MOV PARAM1,B 

CALL WRITE PC 

BRK4: CALL INIT_TO 

MOV PARAM1,#T0P_P0RT 

CALL UPI CMD 

MOV PAR7rMl,#0 

CALL UPI_OUT 

CALL UPI IN ;Clear UPIOBF 

CALL INIT_I0 

CALL SET_BAUD 

MOV CLSTFLG 

MOV LINE_START,#0 

CLR A 

MOV ACC.6,C 

MOV PARAM1,A 

CALL UPI_CMD 

MOV DPTR,#(RAMOFF+BREAK_STATUS) 

MOVX A,(3DPTR 

JNZ BRKl 

JMP SIGN_ON 

BRKl: MOV A,CAUSE_IMAGE 

ANL A,#1EH 

JZ BRK2 



;No break set up-was it a keyboard entry? 

;Execution over vector at loc 3 
;Cause is guarded access. 



;Else get the character 

;Return to the user unless char is an ESCAPE. 

;Cause is user abort. 

;The interrupt is due to a valid break. 

;Determine which one and reenter the 

jmonitor at the appropriate point. 

;Shut down all the interrupts while in the 

;Set up the monitor stack pointer 

;Always adjust for data break 

Bypass adjusting PC for any break 
except PROG or STEP 

Check to see if NOP was forced on break, 
(i.e. PC is too big) 



;Check for cause other than singlestep 
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LINE 



SOURCE 



EED8 


02F18E 


= 1 


3358 


JMP 


RUN USER RETURN 


EEDB 


E560 


= 1 


3359 


BRK2: MOV 


A, CAUSE IMAGE 


EEDD 


30E503 


= 1 


3360 


JNB 


ACC.5,PRE UNBREAK 


EEEO 


02F052 


= 1 


3361 


JMP 


STEP51_RETURN 






= 1 


3362 


PRE UNBREAK: 




EEE3 


90B0F1 


= 1 


3363 


MOV 


DPTR,#(RAMOFF+UPI 


EEE6 


D2E7 


= 1 


3364 


SETB 


ACC.7 


EEE8 


FO 


= 1 


3365 


MOVX 


@DPTR,A 






= 1 


3366 +1 


$EJECT 





;Reenter execution if not singlestep 
;Return to the step command. 



;escape 
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EEE9 
EEEB 
EEEE 
EEFO 
EEF3 
EEF6 
EEF8 
EEFB 
EEFE 
EEFF 
EFOO 
EF03 
EF06 
EF08 
EFOB 
EFOD 
EFIO 
EFll 
EF13 



7A01 

12E625 

7AFF 

12E638 

12E638 

7A83 

12E625 

90BOF9 

EO 

FA 

12E638 

12E64C 

7A00 

12E625 

E520 

7582FA 

FO 

787F 

75827F 



EF16 EO 

EF17 F6 

EF18 1582 

EFIA D8FA 

EFIC EO 

EFID F6 

EFIE 7582F0 

EF21 EO 

EF22 F5F0 

EF24 758290 

EF27 EO 

EF28 F590 

EF2A 7582B0 

EF2D EO 



LINE 

3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 



SOURCE 
****************************************************************** 

NAME: UNBREAK 

ABSTRACT: Restores the user status and starts execution of the 
user program. CAUTION: This routine is position sensitive. 
It is entered from BREAK as "in line" code. 

INPUTS: A11 of the users registers and RAM images wi 1 be used., 
TOP STORE 



OUTPUTS: MON_FLAGS 

VARIABLES MODIFIED: 
THl, TMOD, TCON, 



A, DPTR, 
IE, lEO, 



RO, 
ITO, 



5, PSW, SCON, SP, IP, THO, 
PXO 



ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: UPI_CMD, UPI_OUT 
************************************************************** 



UNBREAK:MOV 
CALL 
MOV 
CALL 
CALL 
MOV 
CALL 
MOV 
MOVX 
MOV 
CALL 
CALL 
MOV 
CALL 
MOV 
MOV 
MOVX 
MOV 
MOV 

UNBRK_LOOP: 
MOVX 
MOV 
DEC 
DJNZ 
MOVX 
MOV 
MOV 
MOVX 
MOV 
MOV 
MOVX 
MOV 
MOV 
MOVX 



PARAM1,#USART_M0DE 

UPI_CMD 

PARAM1,#0FFH 

UPI_OUT 

UPI_OUT 

PARAM1,#T0P_P0RT 

UPI_CMD 

DPTR,#(RAMOFF+TOP_STORE) 

A,(9DPTR 

PARAM1,A 

UPI_OUT 

UPI IN 

PAR7VM1,#SELECT_C0N 

UPI_CMD 

A,20H 

DPL,#MON_FLAGS 

@DPTR,A 

R0,#127 

DPL,#127 

A,@DPTR 

@RO,A 

DPL 

RO,UNBRK_LOOP 

A,@DPTR 

(aRO,A 

DPL,#B 

A,@DPTR 

B,A 

DPL,#P1 

A,@DPTR 

PI, A 

DPL,#P3 

A,@DPTR 



;Output nulls to clr usart b/f reset in break 



Clear UPIOBF 

Re-enable the console for I/O 

then return 

Save the MON_FLAGS during execution. 



;First restore the internal RAM. 
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LOC 


OBJ 


LINE 


EF2E 


44C4 =1 


3422 


EF30 


F5B0 =1 


3423 


EF32 


7582D0 =1 


3424 


EF35 


EO =1 


3425 


EF36 


F5D0 =1 


3426 


EF38 


758298 =1 


3427 


EF3B 


EO =] 


3428 


EF3C 


F598 =] 


3429 


EF3E 


758281 =1 


3430 


EF41 


EO =1 


3431 


EF42 


F581 =1 


3432 


EF44 


7582FD =1 


3433 


EF47 


EO =1 


3434 


EF48 


COEO =] 


3435 


EF4A 


A3 =] 


3436 


^F4B 


EO =1 


3437 


|F4C 


COEO =] 


3438 


|f4E 


7582B8 =] 


3439 


EF51 


EO =] 


3440 


EF52 


F5B8 =] 


3441 


EF54 


75828C =] 


3442 


EF57 


EO =] 


3443 


EF58 


F58C =] 


[ 3444 


EF5A 


75828D =] 


L 3445 


EF5D 


EO =] 


L 3446 


EF5E 


F58D 


L 3447 


EF60 


75828A 


L 3448 


EF63 


EO 


L 3449 


EF64 


F58A 


L 3450 


EF66 


75828B 


L 3451 


EF69 


EO 


L 3452 


EF6A 


F58B 


L 3453 


|EF6C 


758289 


L 3454 


|f6F 


EO 


L 3455 


Wf70 


F589 


L 3456 


EF72 


758288 


L 3457 


EF75 


EO 


L 3458 


EF76 


F588 


L 3459 


EF78 


7582A8 


L 3460 


EF7B 


EO 


L 3461 


EF7C 


547E 


L 3462 




= 


L 3463 


EF7E 


F5A8 


L 3464 


EF80 


758282 


L 3465 


EF83 


EO 


L 3466 


EF84 


COEO 


L 3467 


EF86 


0582 


L 3468 


EF88 


EO 


L 3469 


EF89 


COEO 


I 3470 


EF8B 


7582E0 


1 3471 


||F8E 


EO 


I 3472 


■f8F 


D083 


1 3473 


Wf91 


D082 


1 3474 


EF93 


C289 


I 3475 


EF95 


D288 


I 3476 



SOURCE 



ORL 


A,#0C4H 


MOV 


P3,A 


MOV 


DPL,#PSW 


MOVX 


A,0DPTR 


MOV 


PSW,A 


MOV 


DPL,#SCON 


MOVX 


A,(aDPTR 


MOV 


SCON, A 


MOV 


DPL,#SP 


MOVX 


A,(aDPTR 


MOV 


SP,A 


MOV 


DPL,#UPC 


MOVX 


A,(3DPTR 


PUSH 


ACC 


INC 


DPTR 


MOVX 


A,@DPTR 


PUSH 


ACC 


MOV 


DPL,#IP 


MOVX 


A,(aDPTR 


MOV 


IP, A 


MOV 


DPL,#THO 


MOVX 


A,@DPTR 


MOV 


THO,A 


MOV 


DPL,#TH1 


MOVX 


A,@DPTR 


MOV 


TH1,A 


MOV 


DPL,#TLO 


MOVX 


A,@DPTR 


MOV 


TLO,A 


MOV 


DPL,#TL1 


MOVX 


A,@DPTR 


MOV 


TL1,A 


MOV 


DPL,#TMOD 


MOVX 


A,(aDPTR 


MOV 


TMOD,A 


MOV 


DPL,#TCON 


MOVX 


A,@DPTR 


MOV 


TCON,A 


MOV 


DPL,#IE 


MOVX 


A,0DPTR 


ANL 


A,#07EH 


MOV 


IE, A 


MOV 


DPL,#DPL 


MOVX 


A,(aDPTR 


PUSH 


ACC 


INC 


DPL 


MOVX 


A,(aDPTR 


PUSH 


ACC 


MOV 


DPL,#ACC 


MOVX 


A,0DPTR 


POP 


DPH 


POP 


DPL 


CLR 


lEO 


SETB 


ITO 



;Restore first byte of PC to top of stack 
;Second byte of PC 



;Leave overall enable and external off until 
;interrupt mode is established. 
;Set up IE. 



;Push user data pointer into the user stack. 



;Restore the user A register. 



;Restore user data pointer. 

;Set up the break logic interrupts. 
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LINE 



SOURCE 



EF97 D2B8 
EF99 43A881 
EF9C 32 



=1 3477 

=1 3478 

=1 3479 

=1 3480 +1 



SETB 


PXO 


ORL 


IE,#81H 


RETI 





$EJECT 



;Edge mode, highest priority. 
; ' Return ' to the user. 
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LOC OBJ 



EF9D 90B0FD 

EFAO EO 

EFAl F5F0 

EFA3 A3 

EFA4 EO 

EFA5 C5F0 

EFA7 22 



EFA8 90B0FD 

EFAB EB 

EFAC FO 

EFAD A3 

EFAE EA 

EFAF FO 

EFBO 22 



LINE 

3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 +1 



SOURCE 
**••**•**********•***************•****••********•**•••••*****•**** 

NAME: READ_PC/WRITE_PC 

ABSTRACT: 

READ_PC: This routine returns a copy of the user program 
counter in A and B from the page of external RAM devoted to 
saving the user status. 

WRITE_PC: this routine loads the user program counter 
with the parameter passed to it. 

INPUTS: PARAMl (high byte), PARAM2 (low byte) 

OUTPUTS: ACC (low byte), B (high byte), users version of PC 

VARIABLES MODIFIED: DPTR, A, B 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 

******************************************************************* 
READ_PC: ;Set DPTR to point at the user PC in the 

;user stack. 
DPTR,#(RAMOFF+UPC) 
A,@DPTR 

B,A ;Load the user pc into B and A. 

DPTR 
A,(3DPTR 
A,B 



MOV 
MOVX 
MOV 
INC 
MOVX 
XCH 
RET 
WRITE_PC: 

MOV 
MOV 
MOVX 
INC 
MOV 
MOVX 
RET 
$EJECT 



;Set the DPTR to point at the user PC in the 

iuser stack. 
DPTR,#(RAMOFF+UPC) 

A,PARAM2 ;Write into the user PC. 
@DPTR,A 
DPTR 

A, PARAMl 
@DPTR,A 
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LOC OBJ 



EFBl IIBC 

EFB3 B4090B 

EFB6 12E769 

EFB9 AA49 

EFBB AB4A 

EFBD F1A8 

EFBF IIBC 

EFCl 22 



LINE 

3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 +1 



SOURCE 
****************************************************************** 

NAME: CHECK_FROM 

ABSTRACT: This routine gets a token and if it is a 'from', it 
will get the number and send it to the users PC. It always 
leaves this routine with a 'fresh' token whether it finds a 
'from' or not. 

INPUTS: None 

OUTPUTS: TOKSTR 

VARIABLES MODIFIED: PARAMl, PARAM2 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: IGETOKE, IGETNUM, WRITE_PC 

****************************************************************** 

CHECK_FROM: 

CALL 

CJNE 

CALL 

MOV 

MOV 

CALL 

CALL 
NOTFRM: RET 
$EJECT 



IGETOKE 

A, #FROM_TOKE, NOTFRM 

IGETNUM 

PARAMl, VALHGH 

PARAM2,VALL0W 

WRITE_PC 

IGETOKE 
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LOC 


OBJ 




LINE 






= 


1 3555 






= 


1 3556 






= 


1 3557 






= 


1 3558 






= 


1 3559 






= 


1 3560 






= 


1 3561 






= 


1 3562 






= 


1 3563 






= 


I 3564 






= 


1 3565 






= 


1 3566 






= 


I 3567 






= 


I 3568 






= 


1 3569 


k 




= 


L 3570 






= 


L 3571 


' 




= 


L 3572 






= 


L 3573 






= : 


L 3574 






= 


L 3575 






= : 


L 3576 






= 


L 3577 






= ; 


3578 






= : 


[ 3579 






= : 


L 3580 


EFC2 


900003 


= : 


3581 


EFC5 


7402 


= ; 


3582 


EFC7 


FO 


= ; 


3583 


EFC8 


74E0 


= ; 


3584 


EFCA 


A3 


= : 


3585 


EFCB 


FO 


= : 


3586 


IfFCC 


A3 


= ] 


3587 


Ifcd 


7403 


= : 


3588 


TFCF 


FO 


= ; 


3589 


EFDO 


E4 


= : 


3590 


EFDl 


93 


= ; 


3591 


EFD2 


B40301 


= : 


3592 


EFD5 


22 


= : 


3593 






= : 


3594 






= ] 


3595 


EFD6 


754317 


= ] 


3596 


EFD9 


02E3E4 


= ] 


3597 






= ] 


3598 +1 



SOURCE 



********************* 



NAME: BREAK_VECTOR 

ABSTRACT: This routine writes location 03 as a break 

vector, and verifies that it was able to write. This vector 
does a long call to a service routine for all level zero 
interrupts. Level zero interrupts include: 

UPI interrupts (keyboard closures, USART buffer 

empty or full, cassette characters rec'd) 
Hardware breakpoints (PROG, DATA, GUARDED ACCESS, 
SINGLESTEP) 

INPUTS: None 

OUTPUTS: Code memory locations 3, 4 and 5 

VARIABLES MODIFIED: DPTR, A, ERRNUM 

ERROR EXITS: 17H (NO RAM AT LOCATION 3) 

SUBROUTINES ACCESSED DIRECTLY: lERROR 

BREAK_VECTOR: 

MOV DPTR,#0003H ;Point to INTO vector address again 

MOV A,#02H ;Store a "LCALL" instruction 

MOVX @DPTR,A 

MOV A,#HIGH(BREAK) 

INC DPTR 

MOVX @DPTR,A 

INC DPTR 

MOV A,#LOW(BREAK) ;Store low byte of "break" address 

MOVX @DPTR,A 

CLR A 

MOVC A,(9A+DPTR ;Verify that the write did go into RAM 

CJNE A,#LOW(BREAK),B V ERR ;if not the same, go to error 

RET 

B_V_ERR: 

MOV ERRNUM, #17H ;No RAM at location 3 

JMP lERROR 
$EJECT 



;Store the high byte of address for "break" 



MCS-51 MACRO ASSEMBLER 



'SDK-51 MONITOR CODE INTEL PROPRIETARY VERS. #1.03' 



^12, 81 



PAGE 



94 



LOC OBJ 



EFDC FlBl 
EFDE 90B0F2 
EFEl E4 
EFE2 FO 
EFE3 E548 
EFE5 B40260 
EFE8 IIBC 
EFEA 54F8 
EFEC B4801F 

EFEF 85485B 
EFF2 12E769 



EFF5 
EFF8 
EFFA 
EFFB 
EFFC 
EFFE 
EFFF 
F002 
F004 
F005 
F008 
FOOB 
FOOE 
FOlO 
F013 
F016 
F018 
FOIB 
FOIE 



90B0F3 

E549 

FO 

A3 

E54A 

FO 

7582F2 

E55B 

FO 

12E8BC 

B4023D 

12E8BC 

E548 

754303 

B40139 

7409 

B54A00 

754309 

402F 



= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 



LINE 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 

3611 

3612 

3613 

3614 

3615 

3616 

3617 

3618 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 

3653 



SOURCE 



•***••**** 



* ********************************************************* 



NAME: STEP_CMD 

ABSTRACT: STEP executes one or more instructions at a user 
selectable rate, breaking after each instruction. 
The monitor displays the contents of the PC, ACC, 
DPTR, SP and, optionally, a specified bit or byte. 

INPUTS: None 

OUTPUTS: BREAL_STATUS 

VARIABLES MODIFIED: A, 



TOKSAV, DPTR, ERRNUM, PARAMl , BREAK_STATUS 



ERROR EXITS: 03H (NUMBER EXPECTED) 

09H (DECIMAL NUMBER EXPECTED) 

SUROUTINES ACCESSED DIRECTLY: CHECK FROM, IGETOKE, IGETEOL, 
BREAK VECTOR, UPI_CMD, UPI_OUT, UNBREAK, IEOL_CHECK, lERROR 



*********** 

STEP_CMD: 

CALL 

MOV 

CLR 

MOVX 

MOV 

CJNE 

CALL 

ANL 

CJNE 

MOV 
CALL 

MOV 

MOV 

MOVX 

INC 

MOV 

MOVX 

MOV 

MOV 

MOVX 

CALL 

CJNE 

CALL 

DCLAUSE:MOV 
MOV 
CJNE 
MOV 
CJNE 

LAB18: MOV 
JC 



********************************************************* 



CHECK_FROM 

DPTR,#(RAMOFF+SAVE_SEL 

A 

@DPTR,A 

A,TOKSTR 

A,#COMMA_TOKE,STPEOL 

IGETOKE 

A,#0F8H 

A,#80H,DCLAUSE 



;Clear SAVE_SEL to avoid unwanted display.. 



Strip out the lower 3 bits 

and skip to process the delay clause if 

not a display memory token. 

TOKSAV, TOKSTR ;Else proceed with display clause. 

IGETNUM ;Save the address to be displayed in external 

RAM. 

DPTR,#(RAMOFF+ADDR_SAVE_HIGH) 

A,VALHGH 

(aDPTR,A 

DPTR 

A,VALLOW 

@DPTR,A 

DPL,#SAVE_SEL 

A, TOKSAV 

(aDPTR,A ;Save token to be displayed after STEP 

IGETOKE 

A,#COMMA_TOKE,STPEOL 

IGETOKE 

A, TOKSTR 

ERRNUM, #03H 

A,#NUMBER_TOKE,EXERRO 

A #9 

A*,VALL0W,LAB18 

ERRNUM, #09H 

EXERRO 



;Number expected 



;Decimal number expected 

;Error unless number is less than 9. 
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m 



LOC OBJ 

F020 E549 
F022 702B 
F024 90B0F5 
F027 E54A 
F029 FO 
F02A 12E773 

F02D 74FF 

F02F 90B0FB 
F032 FO 
F033 12EFC2 
F036 7A03 
F038 12E625 
F03B 7A08 

03D 12E638 
40 7A01 
42 12E638 

045 02EEE9 
F048 12E5BB 
F04B 74FE 
F04D 80E0 
F04F 02E3E4 



LINE 

3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 



SOURCE 



STPLOP: 
STEP51: 



MOV 

JNZ 

MOV 

MOV 

MOVX 

CALL 

MOV 



+ 1 



MOV 

MOVX 

CALL 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

JMP 

STPEOL: CALL 
MOV 
JMP 

EXERRO: JMP 

$EJECT 



A,VALHGH 

EXERRO 

DPTR,#(RAMOFF+DELAY) 

A,VALLOW 

@DPTR,A 

IGETEOL 

A,#MULTISTEP 



;Upper bits must be zero also. 



;Check that next entry is CR 



DPTR,#(RAMOFF+BREAK_STATUS) 

@DPTR,A 

BREAK VECTOR 

PARAMT,#GR_P0RT 

UPI_CMD 

PARAM1,#CLR_BRK_LATCHES iClear all break latches 

UPI_OUT 

PARAM1,#SINGLE_BREAK 

UPI_OUT ;Send it to the UPI data channel 

UNBREAK 

IEOL_CHECK 

A,#SINGLESTEP 

STEP51 

lERROR 
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LOG OBJ 



F052 


12E717 


F055 


12EF9D 


F058 


AAFO 


F05A 


FB 


F05B 


BAEOOC 


F05E 


BB0309 


F061 


754316 


F064 


756004 


F067 


02E3E4 


F06A 


7A50 


F06C 


12E5E8 


F06F 


AAFO 


F071 


12E7F4 


F074 


12E5E6 


F077 


7A41 


F079 


12E5E8 


F07C 


90B0E0 


F07F 


EO 


F080 


FA 


F081 


12E7F9 


F084 


12E5E6 


F087 


7A44 


F089 


12E5E8 


F08C 


90B082 


F08F 


EO 


F090 


FB 


F091 


A3 


F092 


EO 


F093 


FA 


F094 


12E7F4 



= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
=1 
= 1 
=1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
=1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
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3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 



<^**ic-k-k*ick-kic*icic-k-kic-kic-k-k-k*-k-k-k*'k-kic-kic-kic* 



NAME: STEP51 RETURN 



• ********************^vt****** 



ABSTRACT: After the branch to UNBREAK in STEP_CMD, the user 

execution has begun. Exit from execution with the STEP FLAG 
set will result in a branch to STEP51_RETURN. 

INPUTS: SAVE_SEL, BREAK STATUS, DELAY, USER SP, ACC , DPTR 
ADDR_SAVE_HIGH, ADDR_SAVE_LOW 

OUTPUTS: None 

VARIABLES MODIFIED: PARAMl , PARAM2, ERRNUM, CAUSE_IMAGE, DPTR, 

ERROR EXITS: 16H (EXECUTION ACROSS LOCATION 3) 

SUBROUTINES ACCESSED DIRECTLY: INEWLINE, READ PC, ICO ILSTWRD 
SPACCO, ILSTBYT, IFETCH, ITIME, ICSTS, UPriN ICI 
IWAIT_FOR USER, lERROR " 



STEP51_RETURN: 
CALL 
CALL 
MOV 
MOV 
CJNE 
CJNE 
MOV 
MOV 
JMP 

NOT_STEP_THREE: 
MOV 
CALL 
MOV 
CALL 
CALL 
MOV 
CALL 
MOV 
MOVX 
MOV 
CALL 
CALL 
MOV 
CALL 
MOV 
MOVX 
MOV 
INC 
MOVX 
MOV 
CALL 



**-^**-k*-kicic**-ki,-k-kic'k-k-k-k-k**i,icicic-k-k* 



<(*-k-k*-k*-kicic*-k-k-k-k-k-k-kic-k*-k 



INEWLINE 

READ_PC 

PARAMl, B 

PARAM2,A 

PARAMl, #OEOH, NOT STEP THREE 

PARAM2,#3,N0T STFP THREE 



;Output a CR-LF. 

;Output the contents of the user PC to the 

;consol e. 



ERRNUM, #16H 

CAUSE_IMAGE,#4 

lERROR 

PARAMl, #'P' 

ICO 

PARAMl, B 

ILSTWRD 

SPACCO 

PARAMl, #'A' 

ICO 

DPTR,#(RAMOFF+ACC) 

A,@DPTR 

PARAMl, A 

ILSTBYT 

SPACCO 

PARAMl, #'D' 

ICO 

DPTR,#(RAMOFF+DPL) 

A,@DPTR 

PARAM2,A 

DPTR 

A,@DPTR 

PARAMl, A 

ILSTWRD 



;Adr 3 executed 

;Cause is guarded access to loc 3 



;Output PC label 

^Restore PC value to register for display. 

;Output address 

;Output space 

;Output user accumulator label 



;Call ILSTBYT(user ACC). 

;Output DPTR label 

;Di splays the low and high byte of DPTR 



^^: 
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LOC OBJ 




LINE 


SOURCE 






F097 12E5E6 


= 1 


3733 




CALL 


SPACCO 


F09A 7A53 


= 1 


3734 




MOV 


PARAM1,#'S' 


F09C 12E5E8 


= 1 


3735 




CALL 


ICO 


F09F 90B081 


= 1 


3736 




MOV 


DPTR,#(RAMOFF+SP) 


" F0A2 EO 


= 1 


3737 




MOVX 


A.ODPTR 


F0A3 FA 


= 1 


3738 




MOV 


PARAM1,A 


F0A4 12E7F9 


= 1 


3739 




CALL 


ILSTBYT 


F0A7 90B0F2 


= 1 


3740 




MOV 


DPTR,#(RAMOFF+SAVE 


- FOAA EO 


= 1 


3741 




MOVX 


A,(aDPTR 


FOAB F55B 


= 1 


3742 




MOV 


TOKSAV,A 


FOAD 6022 


= 1 


3743 




JZ 


STEP51 EXIT 


FOAF 12E5E6 


= 1 


3744 




CALL 


SPACCO 


F0B2 7A28 


= 1 


3745 




MOV 


PARAMl ,#' ( ' 


F0B4 12E5E8 


= 1 


3746 




CALL 


ICO 


F0B7 E55B 


= 1 


3747 




MOV 


A,TOKSAV 


F0B9 5407 


= 1 


3748 




ANL 


A,#07H 


^^BB F546 


= 1 


3749 




MOV 


SELECT, A 


^^Kd A3 


= 1 


3750 




INC 


DPTR 


^PTBE EO 


= 1 


3751 




MOVX 


A,(aDPTR 


FOBF F544 


= 1 


3752 




MOV 


PNTHGH,A 


FOCI A3 


= 1 


3753 




INC 


DPTR 


F0C2 EO 


= 1 


3754 




MOVX 


A,(3DPTR 


F0C3 F545 


= 1 
= 1 


3755 
3756 




MOV 


PNTLOW,A 


F0C5 12E66B 


= 1 


3757 




CALL 


IFETCH 


F0C8 FA 


= 1 


3758 




MOV 


PARAMl, A 


F0C9 12E7F9 


= 1 


3759 




CALL 


ILSTBYT 


FOCC 7A29 


= 1 


3760 




MOV 


PARAMl ,# ' ) ' 


FOCE 12E5E8 


= 1 


3761 




CALL 


ICO 




= 1 


3762 


STEP51_ 


EXIT: 




FODl 90B0FB 


= 1 


3763 




" MOV 


DPTR,#(RAMOFF+BREAK 


F0D4 EO 


= 1 


3764 




MOVX 


A,(9DPTR 


F0D5 B4FF2E 


= 1 


3765 




CJNE 


A,#MULTISTEP,SSRET 


^^^8 90B0F5 


= 1 


3766 




MOV 


DPTR,#(RAMOFF+DELAY 


^^■b 


= 1 


3767 




MOVX 


A,(3DPTR 


^■PdC F55C 


= 1 


3768 




MOV 


DLYCNT,A 


FODE E55C 


= 1 


3769 


STPDLY: 


MOV 


A.DLYCNT 


FOEO 600B 


= 1 


3770 


JZ 


DLY THRU 


F0E2 155C 


= 1 


3771 




DEC 


DLYCNT 


F0E4 7A13 


= 1 


3772 




MOV 


PARAMl, #13H 


F0E6 7B88 


= 1 


3773 




MOV 


PARAM2,#88H 


F0E8 12EA45 


= 1 


3774 




CALL 


ITIME 


FOEB 80F1 


= 1 


3775 




JMP 


STPDLY 




= 1 


3776 


DLY THRU: 




FOED 7A00 


= 1 


3777 




MOV 


PARAMl, #00H 


FOEF 7BA5 


= 1 


3778 




MOV 


PARAM2,#0A5H 


FOFl 12EA45 


= 1 


3779 




CALL 


ITIME 


F0F4 12E602 


= 1 


3780 




CALL 


ICSTS 


F0F7 4002 


= 1 


3781 




JC 


STEP STOP 




= 1 


3782 


STPLOP 


REACH: 




-EDF9 012D 


= 1 


3783 




■ JMP 


STPLOP 


^k 


= 1 


3784 


STEP_STOP: 




^^P 12E64C 


= 1 


3785 




CALL 


UPI IN 


^We B41BF8 


= 1 


3786 




CJNE 


A, #ESC, STPLOP REACH 


FlOl 12E5EB 


= 1 


3787 




CALL 


ICI 



SEL) 



;Output the SP label 

;Output the value of SP 

;Get the select code saved in memory. 

;Exit if no optional display. 
;Output space 

;Output left parentheses 

;Move saved token into ACC 

;Mask lower 3 bits 

;Move lower 3 bits into selector for FETCH 

;Fetch the saved address. 



;Fetch the memory byte the user wants 
;di spl ayed. 

;And display it. 

;Output right parentheses 



STATUS) 



;Execute multiple single steps 



;Delay for about 1/2 second per DLYCNT 
;Loop until delay count = 



;Delays 16ms 

;No carry means no input pending 



;First esc stops step, 2nd will exit. 
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LOC OBJ 

F104 80F3 

F106 12E3B0 
F109 02E2D6 
FIOC 02E3E4 



LINE 



SOURCE 



3788 
3789 
3790 
3791 
3792 
3793 
3794 +1 $EJECT 



JMP STPLOP REACH ;Any key after 1st esc resumes step 



SSRET: CALL 

JMP 
EXERRl: JMP 



IWAIT_FOR_USER 

START 

lERROR 
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LOC OBJ 



FIOF 12EFB1 
F112 6407 
F114 6053 



F116 E548 
F118 B4080C 



FllB 
FllE 
F121 
F123 
F124 
F127 
F12A 
F12D 
F130 
F133 
F136 
F139 
F13B 
F13C 
F13F 
F142 

F145 
F148 
|F14B 
'f14E 
F151 
F154 



12E773 

90B0F6 

7409 

FO 

02F169 

75430B 

B40CDF 

12E8BC 

B4D30C 

12E773 

90B0F6 

740D 

FO 

02F169 

75430B 

B4D5C7 

12E8BC 
B40B15 
12E8BC 
75430B 
B4D3B8 
12E773 



LINE 

3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 



SOURCE 
************************************************************** 

NAME: GO_CMD 

ABSTRACT: This routine sets up conditions for entering user execution. 
It looks for partition information and breakpoints and saves 
an image of break enable hardware in software. 

INPUTS: GR 

OUTPUTS: GR, BREAK_STATUS 

VARIABLES MODIFIED: A, ERRNUM, DPTR, PARAMl , PARAM2, GR 

ERROR EXITS: OBH (BREAK ENABLE SYNTAX) 

SUBROUTINES ACCESSED DIRECTLY: CHECK_FROM, IGETEOL, IGETOKE, 

IEOL_CHECK, BREAK_VECTOR, UPI_CMD, UPI_OUT, UNBREAK, I PR INT_STR ING, 
READ_PC, ILSTWRD, I WAIT_FOR_USER 

****************************************************************** 
GO CMD: 



NOTFOR: 



NOTDAT: 



CALL CHECK_FROM 
XRL A,#EOL_TOKE 
JZ RUN USER 



MOV 


A,TOKSTR 


CJNE 


A, #FOREVER_TOKE, NOTFOR 


CALL 


IGETEOL 


MOV 


DPTR,#(RAMOFF+GR) 


MOV 


A,#NO BREAK 


MOVX 


(aDPTR,A 


JMP 


RUN USER 


MOV 


ERRTrUM,#OBH 


CJNE 


A,#TILL T0KE,EXERR1 


CALL 


IGETOKE 


CJNE 


A,#DATA TOKE, NOTDAT 


CALL 


IGETEOL 


MOV 


DPTR,#(RAMOFF+GR) 


MOV 


A,#DATA BREAK 


MOVX 


(SDPTR.A 


JMP 


RUN USER 


MOV 


ERRNUM, #OBH 


CJNE 


A,#PR0GRAM_T0KE,EXERR1 


CALL 


IGETOKE 


CJNE 


A,#OR TOKE,PGMBRK 


CALL 


IGETOKE 


MOV 


ERRNUM, #OBH 


CJNE 


A,#DATA T0KE,EXERR1 


CALL 


IGETEOL 



;If have the end of line token go to user 
;emul ati on. 

;If not then find out what kind of emulation 
;is required. 

; First restore the token. 

;See if token is FOREVER token 

;Wait for CR after FOREVER 

;Copy break enable image into hrdwr 



;Jump to GO loop 

;BRK enable syntax 

;Jump to error routine if not TIL token 

;See if next input was data break 

;Make sure next input is CR 

;Copy break enable image into hrdwr 



Jump to GO loop 

BRK enable syntax 

If program break not entered by now. 

Then error 

;See if OR was entered in break sequence 

;BRK enable syntax 

;Make sure data token was entered next 

;Make sure CR was entered last 
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LOC OBJ 

F157 90B0F6 
F15A 740F 
F15C FO 
F15D 02F169 
F160 12E5BB 
F163 90B0F6 

740B 

FO 



F166 
F168 



F169 
F16C 
F16E 
F16F 
F172 
F174 
F176 
F179 
F17B 
F17E 
F180 
F183 
F186 
F187 
F188 
F18B 



90B0FB 

74FB 

FO 

12EFC2 

7AF1 

7BA4 

12E9FF 

7A03 

12E625 

7A08 

12E638 

90B0F6 

EO 

FA 

12E638 

02EEE9 



F18E 7AF1 
F190 7BB6 
F192 12E9FF 
F195 12EF9D 
F198 AAFO 
F19A FB 
F19B 12E7F4 
F19E 12E3B0 
FlAl 02E2D6 



F1A4 11 
F1A5 OD 
F1A6 OA 
F1A7 45584543 
FlAB 5554494F 
FIAF 4E204245 
F1B3 47554E 

F1B6 16 

F1B7 OD 

F1B8 OA 

F1B9 45584543 

FIBD 5554494F 

FlCl 4E204841 

F1C5 4C544544 

F1C9 2050433D 



LINE 

3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 



=1 3889 
=1 3890 



PGMBRK: 



SOURCE 

MOV 
MOV 
MOVX 
JMP 
CALL 
MOV 
MOV 
MOVX 
RUN_USER: 

MOV 

MOV 

MOVX 

CALL 

MOV 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

MOV 

MOVX 

MOV 

CALL 

JMP 



DPTR,#(RAMOFF+GR) ;Copy break enable image into sftwr 

A,#(DATA_BREAK OR PROGRAM BREAK) 

@DPTR,A 

RUN_USER 

IEOL_CHECK 

DPTR,#(RAMOFF+GR) ;Copy break enable image into sftwr 

A,#PROGRAM BREAK 

@DPTR,A 



DPTR,#(RAMOFF+BREAK STATUS 

A,#NOT_STEP 

@DPTR,A 

BREAK_VECTOR 

PARAM1,#HIGH(XEQT_MSG) 

PARAM2,#L0W(XEQT MSG) 

IPRINT_STRING 

PARAM1,#GR_P0RT 

UPI_CMD 

PARAM1,#CLR BRK LATCHES 

UPI_OUT 

DPTR,#(RAMOFF+GR) 

A,@DPTR 

PARAM1,A 

UPI OUT 

UNBITEAK 

RUN_USER_RETURN: 

MOV PARAM1,#HIGH(BREAK_MSG) 

MOV PARAM2,#L0W(BREAK MSG) 

CALL IPRINT_STRING 

CALL READ_PC 

MOV PARAM1,B ;Display the user PC 

MOV PARAM2,A 

CALL ILSTWRD 

CALL IWAIT_FOR_USER ;And goto the monitor. 

JMP START 

XEQT_MSG: 
DB 



;Clear the step flag to show a 



;Clear all break latches 

;Copy break enable image into hrdwr 

;Send it to the UPI data channel 



condition 



17,CR,LF,( 'EXECUTION BEGUN' ) 



3REAK_MSG: 
DB 



22, CR,LF, ('EXECUTION HALTED PC=' 



3891 +1 $EJECT 
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LOC OBJ 



+ 1 



•F1E3 
F1E6 
F1E8 



FICD 12E784 
FIDO 401E 
F1D2 12E8BC 
F1D5 B40F03 
F1D8 D201 
FIDA 22 
FIDB 754308 
FIDE B40E71 

7A01 
F1E3 12E625 
1E6 C201 

7A1A 
FlEA 12E5E8 
FIED 02E717 



FIFO 7A0F 
F1F2 200102 
F1F5 7A0E 
F1F7 12EA12 
FIFA 02E3B0 



LINE 

3892 
3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 



3930 
3931 
3932 
3933 
3934 
3935 
3936 +1 



SOURCE 

$INCLUDE(:F1:M0NFUN. INC) 
******************************************************************* 

NAME: LIST_CMD 

ABSTRACT: This routine gets the 'keyword =' message and sets 

up the LSTFLG to display tokens to the console and an auxilary 
terminal. Anytime display is called for. It will also terminate 
any ISIS files with a control Z. List is on when LSTFLG = 1. 

INPUTS: LSTFLG 

OUTPUTS: LSTFLG 

VARIABLES MODIFIED: LSTFLG, PARAMl, ERRNUM 

ERROR EXITS: 08H (RESET OR ON REQUIRED) 

SUBROUTINES ACCESSED DIRECTLY: IS IT_DISPLAY , IGETOKE, 

IDISPLAY_TOKEN, ICO, UPI_CMD, INEWLINE, I WAIT_FOR_USER 

**************************************************************** 

LIST_CMD: 

CALL 



LIST 2: 



JC 

CALL 

CJNE 

SETB 

RET 

MOV 

CJNE 

MOV 

CALL 

CLR 

MOV 

CALL 

JMP 

t Reset 

DISPLAY_LIST: 
MOV 
JB 
MOV 
CALL 
JMP 



LIST 1; 



ISIT DISPLAY 

DISPrAY_LIST 

IGETOKE 

A,#0N_T0KE,LIST_2 

LSTFLG 

ERRNUM, #08H 

A,#RESET_TOKE,STATE_ERR 

PARAMl, #USART_MODE 

UPI_CMD 

LSTFLG 

PARAMl, #1AH 

ICO 

INEWLINE 



PARAMl, #ON_TOKE 
LSTFLG, LIST_1 
PARAMl, #RESET_TOKE 
IDISPLAY_TOKEN 
IWAIT FOR USER 



;Sets up 'keyword =' msg 
;C=1 if display only 

;List turned on, no display 



;Reset or on required 

;List turned off, no display 



;Send cntrl-Z to close MDS file 

;Insure that control-z gets out before Usar 



;Display 'on' set up 
;Display 'reset' set up 



$EJECT 
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LOC OBJ 



FIFO 12E784 

F200 4068 

F202 12E769 

F205 90F255 

F208 7800 

F20A E8 

F20B 93 

F20C B5493F 

F20F E54A 

F211 B80038 



F214 75430A 

F217 B41038 

F21A 90B0F7 

F21D E549 

F21F FO 

F220 A3 

F221 E54A 

F223 FO 

F224 7582FC 

F227 E8 

F228 FO 



F229 90B0FC 
F22C EO 
F22D 23 
F22E F5F0 
F230 90F25C 
F233 93 



LINE 

3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 



SOURCE 

NAME: BAUD_CMD/ SET_BAUD 

ABSTRACT: This routine will allow the user to display the 

baud rate or change the baud rate to any legal value between 
110 and 9600. Default on power up is 2400. 

INPUTS: BAUD_HIGH, BAUD_LOW 

OUTPUTS: BAUD_HIGH, BAUD_LOW, BAUDKEY 

VARIABLES MODIFIED: DPTR, ERRNUM, A, B, BAUD_HIGH, BAUD_LOW, BAUDKEY 

ERROR EXITS: OAH (ILLEGAL BAUD VALUE) 

SUBROUTINES ACCESSED DIRECTLY: IS IT_DISPLAY , IGETNUM, lERROR, 
ILSTWRD, IWAIT_FOR_USER 



BAUD_CMD: 

CALL 

JC 

CALL 

MOV 

MOV 



BS LOOP: 



MOV 

MOVC 

CJNE 

MOV 

CJNE 



MOV 
CJNE 
PRE_SET_BAUD: 
MOV 
MOV 
MOVX 
INC 
MOV 
MOVX 
MOV 
MOV 
MOVX 



ISIT_DISPLAY 

BAUD_DISPLAY 

IGETNUM 

DPTR,#BAUD_RATE 

POINTO,#OOH 

A,POINTO 
A,(aA+DPTR 
A,VALHGH,BS 2 
A,VALLOW 
POINTO,#OOH,BM 1 



;Check table for a valid baud rate request. 



ERRNUM, #OAH 
A,#10H,STATE_ERR 

DPTR,#(RAMOFF+BAUD_HIGH) 

A,VALHGH 

@DPTR,A 

DPTR 

A,VALLOW 

(9DPTR,A 

DPL,#BAUDKEY 

A,POINTO 

@DPTR,A 



;If POINTO=0, the lower 2 digits better be 
;10 because the baud rate is 110. 
; 1 1 1 egal baud value 



.*******•*•*****************•******•*******••*****•******•*****•**•* 



SET BAUD: 



MOV DPTR,#(RAMOFF+BAUDKEY) 

MOVX A,(aDPTR 

RL A 

MOV B,A 

MOV DPTR,#TIMER PRESET 

MOVC A,@A+DPTR ~ 
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LOC 


OBJ 




LINE 


SOURCE 






F234 


C5F0 


= ] 


[ 3992 




XCH 


A,B 


F236 


A3 


= : 


L 3993 




INC 


DPTR 


F237 


93 


= : 


I 3994 




MOVC 


A,(3Ah-DPTR 


F238 


C5F0 


= 


L 3995 




XCH 


A,B 


F23A 


90B805 


= 


L 3996 




MOV 


DPTR,#(RAMIO+TIMER HIGH) 


F23D 


4440 


= 


L 3997 




ORL 


A,#CONTINUOUS MODE 


F23F 


FO 


= : 


L 3998 




MOVX 


(aDPTR,A 


F240 


1582 


= 


L 3999 




DEC 


DPL 


F242 


E5F0 


= 


L 4000 




MOV 


A,B 


F244 


FO 


= 


L 4001 




MOVX 


@DPTR,A 


F245 


90B800 


= 


L 4002 




MOV 


DPTR,#RAMIO 


F248 


74C0 


= 


L 4003 




MOV 


A,#START 16 TIMER 


F24A 


FO 


= 


L 4004 




MOVX 


@DPTR,A 


F24B 


22 


= : 


L 4005 




RET 




F24C 


60CC 


= 


L 4006 


BM_1: 


JZ 


PRE_SET_BAUD 


^ 




= 


L 4007 








k4E 


08 


= ; 


L 4008 


BS_2: 


INC 


POINTO 


P4F 


B496B8 


= : 


I 4009 




CJNE 


A,#HIGH(9600H),BS_L00P 






= 


L 4010 


STATE_ 


ERR: 




F252 


02E3E4 


= 


L 4011 




JMP 


lERROR 






= 


L 4012 


BAUD RATE: 




F255 


01 


= 


L 4013 




DB 


HIGH(llOH) 


F256 


03 


= : 


L 4014 




DB 


HIGH(300H) 


F257 


06 


= ] 


L 4015 




DB 


HIGH 600H) 


F258 


12 


= : 


L 4016 




DB 


HIGH(1200H) 


F259 


24 


= ■ 


L 4017 




DB 


HIGH 2400H) 


F25A 


48 


= : 


L 4018 




DB 


HIGH(4800H) 


F25B 


96 


= 


L 4019 




DB 


HIGH(9600H) 






= : 


L 4020 


TIMER_ 


PRESET: 




F25C 


0470 


= : 


L 4021 




DW 


1136 


F25E 


OlAl 


= : 


L 4022 




DW 


0417 


F260 


OODO 


= : 


L 4023 




DW 


0208 


^62 


0068 


= 


L 4024 




DW 


0104 


■ 64 


0034 


= : 


L 4025 




DW 


0052 


Wt66 


OOIA 


= : 


L 4026 




DW 


0026 


T268 


OOOD 


= : 


L 4027 




DW 


0013 






= ■ 


L 4028 


.******•*•****••***•••***••*•***•**•••*■*•*• 






= : 


4029 


BAUD_DISPLAY: 




F26A 


90B0F7 


= ; 


L 4030 




MOV 


DPTR,#(RAMOFF+BAUD HIGH) 


F26D 


EO 


= ; 


4031 




MOVX 


A,(9DPTR 


F26E 


FA 


= ; 


L 4032 




MOV 


PARAM1,A 


F26F 


A3 


= : 


L 4033 




INC 


DPTR 


F270 


EO 


= ; 


[ 4034 




MOVX 


A,@DPTR 


F271 


FB 


= : 


L 4035 




MOV 


PARAM2,A 


F272 


12E7F4 


= ; 


4036 




CALL 


ILSTWRD 


F275 


02E3B0 


= ; 


L 4037 




JMP 


IWAIT FOR USER 






= : 


L 4038 +1 


$EJECT 







;Store the timer preset value. 



;Start - load timer 



;Else the lower 2 digits better be 
^because all the other rates end in 0. 
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LOG OBJ 



F278 12E784 

F27B 90B0F9 

F27E 401A 

F280 12E769 

F283 E549 

F285 75430D 

F288 20E7C7 

F28B F5F0 

F28D 454A 
F28F 6002 
F291 05F0 

F293 E5F0 
F295 90B0F9 
F298 FO 
F299 22 



F29A EO 
F29B 6001 
F29D 14 

F29E FA 

F29F 12E7F9 

F2A2 90B0F9 

F2A5 EO 

F2A6 6008 

F2A8 7AFF 

F2AA 12E7F9 

F2AD 02F2B5 

F2B0 7A00 



LINE 

4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 



SOURCE 



•*•*•*****•** 



t**** *************************************** ********** 



NAME: T0P_CMD 

ABSTRACT: This routine vn'll set the top of memory to a value 
requested by the user. It will error for values > 7FFFH. 
It will also list the current TOP value to the console upon 
request. 

INPUTS: T0P_ST0RE 

OUTPUTS: T0P_ST0RE 

VARIABLES MODIFIED: DPTR, A, B, PARAMl, ERRNUM 

ERROR EXITS: ODH (TOP VALUE > 7FFFH) 

SUBROUTINES ACCESSED DIRECTLY: I S IT_D I SPL AY , IGETNUM, ILSTBYT, 
IWAIT_FOR_USER 

*************************************************************** 



TOP_CMD:CALL 
MOV 
JC 

CALL 
MOV 
MOV 
JB 
MOV 

ORL 

JZ 

INC 



ISIT_D 
DPTR,# 
TOP_DI 
I6ETNU 
A,VALH 
ERRNUM 
ACC.7, 
B,A 

A,VALL 

ST_1 

B 



ISPLAY 

(RAMOFF+TOP_STORE) 

SPLAY 

M 

GH 

,#ODH 

STATE 



ERR 



OW 



;Do not allow top > 32k 
;Top value > 7FFFH 

;Check for the special case of OOOOH 
•jOtherwise the display should end 
; w i t h an F F H 



ST 1: 



MOV 
MOV 
MOVX 



dptr,#(ramoff+top_store; 

@DPTR,A 



RET 
. ************** * * ************************************************** 

TOP_DISPLAY: 

MOVX 

JZ 

DEC 
TOP LIST 2: 

my 



CALL 
MOV 
MOVX 
JZ 
MOV 
CALL 
JMP 
TOP_LIST_0: 
MOV 



A,0DPTR 

T0P_LIST_2 

A 

PARAMl, A 

ILSTBYT 

DPTR,#(RAMOFF+TOP_STORE] 

A,(9DPTR 

TOP_LIST_0 

PARAMl, #OFFH 

ILSTBYT 

T0P_LIST_1 

PARAMl, #00H 



;Call 1 istbyte(top) 
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LOC OBJ 
F2B2 12E7F9 
F2B5 02E3B0 



1 4094 

1 4095 

1 4096 

1 4097 +1 



CALL 
T0P_LIST_1: 

JMP 
$EJECT 



ILSTBYT 

IWAIT FOR USER 
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LOC OBJ 



F2B8 12E784 

F2BB 75430E 

F2BE 5092 

F2C0 E560 

F2C2 90F2DC 

F2C5 7F05 

F2C7 13 

F2C8 20E004 

F2CB A3 

F2CC A3 

F2CD DFF8 

F2CF E4 
F2D0 93 
F2D1 FA 
F2D2 E4 
F2D3 A3 
F2D4 93 
F2D5 FB 
F2D6 12E9FF 
F2D9 02E3B0 

F2DC F2E8 
F2DE F2F3 
F2E0 F302 
F2E2 F310 
F2E4 F31B 
F2E6 F327 

F2E8 OA 

F2E9 55534552 



LINE 

4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 



SOURCE 
************************************************************** 

NAME: CAUSE_CMD 

ABSTRACT: This routine will display the reason detected 
for a break execution. It is a display-only function. 
The cause is determined and stored during BREAK. 

INPUTS: CAUSE_IMAGE 

OUTPUTS: None 

VARIABLES MODIFIED: A, DPTR, COUNT, PARAMl , PARAM2, ERRNUM 

ERROR EXITS: OEH (DISPLAY ONLY) 

SUBROUTINES ACCESSED DIRECTLY: IS IT_DISPLAY , I PR INT_STR ING, 
IWAIT_FOR_USER 

****************************************************************** 



CAUSE_CMD: 

CALL 

MOV 

JNC 

MOV 

MOV 

MOV 



CL LOOP: 



RRC 

JB 
INC 
INC 
DJNZ 



CL 0: 



CLR 

MOVC 

MOV 

CLR 

INC 

MOVC 

MOV 

CALL 

JMP 

CAUSE_TAB: 
DW 
DW 
DW 
DW 
DW 
DW 

USER_MSG: 
DB 



ISIT_DISPLAY 
ERRNUM, #OEH 
STATE_ERR 
A,CAUSE_IMAGE 
DPTR,#CAUSE_TAB 
COUNT, #5 



ACC.O,CL_0 

DPTR 

DPTR 

COUNT, CL_LOOP 



A,@A+DPTR 

PARAMl, A 

A 

DPTR 

A,(3A + DPTR 

PARAM2,A 

IPRINT STRING 

IWAIT_FQR_USER 

USER_MSG 

GUARD_MSG 

PROG_MSG 

DATA_MSG 

SINGLE_STEP_MSG 

NOBRK_MSG 

10, ( 'USER ABORT' ) 



;Displ ay only 



;Output the appropriate message. 

;Isolate the bit which indicates the 
;cause of the break. 



MCS-51 MACRO ASSEMBLER 



'SDK-51 MONITOR CODE 



INTEL PROPRIETARY VERS. #1.03' 



8,12,81 



PAGE 107 



LOC OBJ 



LINE SOURCE 



F2ED 2041424F 

F2F1 5254 

F2F3 OE 

F2F4 47554152 

F2F8 44454420 

F2FC 41434345 

F300 5353 

F302 OD 

F303 50524F47 

F307 52414D20 

F30B 42524541 

F30F 4B 

F310 OA 

lF311 44415441 

|F315 20425245 

F319 414B 

F31B OB 

F31C 53494E47 

F320 4C452053 

F324 544550 

F327 OB 

F328 57484154 

F32C 20425245 

F330 414B3F 



4152 GUARD_MSG: 

4153 DB 14, ('GUARDED ACCESS'] 



4154 PROG_MSG: 

4155 DB 13, ( 'PROGRAM BREAK' 



4156 DATA_MSG: 

4157 DB 10, ( 'DATA BREAK' ; 



4158 SINGLE_STEP_MSG: 

4159 DB 11, ( 'SINGLE STEP' ) 



4160 NOBRK MSG: 

4161 ~ DB 11, ('WHAT BREAK?' ; 



=1 4162 +1 $EJECT 
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LOC OBJ 



F333 CE 

F334 2E 

F335 CE 

F336 FA 

F337 200503 

F33A 02E7F9 

F33D 02E5E8 



LINE 

4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 +1 



SOURCE 



• •**************Tl 



t* *•**•••*****•**********•****•*■* ******* 



/lr********T( 



NAME: SEND_BYTE 

ABSTRACT: This routine outputs one byte, in either hex or 
binary depending on the setting of the binary flag, to 
the USART. A new checksum is calculated and returned. 

INPUTS: CHECKSUM, A 

OUTPUTS: CHECKSUM 

VARIABLES MODIFIED: A, PARAMl 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: ICO, ILSTBYT 

****************************************************************** 



SEND_BYTE: 
XCH 
ADD 
XCH 
MOV 
JB 
JMP 

SEND_BINARY: 
JMP 

$EJECT 



A, CHECKSUM 

A, CHECKSUM 

A, CHECKSUM 

PARAMl, A 

BINARY_FLG,SEND_BINARY 

ILSTBYT 

ICO 
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LOC OBJ 



F340 12E64C 

F343 20050E 

F346 FA 

F347 12EA3C 

F34A C4 

F34B FD 

F34C 12E5EB 

F34F FA 

F350 12EA3C 

F353 4D 

F354 CE 

kF355 2E 

If356 CE 

F357 22 



LINE 

4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 +1 



SOURCE 
*************************************************************** *^ 

NAME: HEXBIN 

ABSTRACT: Reads two characters from the input device and 

converts them to binary. If the binary flag is set, then 
one binary character is input. This value is added to the 
checksum byte and also returned to the calling routine. 

INPUTS: BINARY_FLG, CHECKSUM 

OUTPUTS: CHECKSUM 

VARIABLES MODIFIED: PARAMl, A, TEMP 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: UPI_IN, I ASC I I_TO_HEX , ICI 

******************************************************************* 



HEXBIN: CALL 
JB 
MOV 
CALL 
SWAP 
MOV 
CALL 
MOV 
CALL 
ORL 

BINARY_LOAD: 
XCH 
ADD 
XCH 
RET 

$EJECT 



UPI_IN 

BINARY_FLG,BINARY_LOAD 

PARAMl, A 

lASCII TO HEX 

A 

TEMP, A 

ICI 

PARAMl, A 

lASCII TO HEX 

A, TEMP" ~ 

A, CHECKSUM 
A, CHECKSUM 
A, CHECKSUM 



;Move the digit to 
;Then save it in a 



the upper nibble, 
temporary location. 



;Then combine with previous digit. 

;Before returning the binary value 
;include it in checksum calculation. 
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LOC OBJ 



F358 
F35B 
F35D 
F360 
F361 
F362 
F364 
F365 
F367 
F369 
F36B 
F36D 
F36F 
F371 



12E64C 

547F 

B43AF8 

E4 

FE 

7140 

FF 

7140 

F544 

7140 

F545 

7140 

F565 

22 



LINE 

4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 
4260 
4261 
4262 
4263 
4264 
4265 +1 



SOURCE 

NAME: GET_TYPE 

ABSTRACT: This routine looks for a colon from the cassette or 
auxilary termimal input, gets the byte count, address and 
file-type information contained in the header and does a checksum. 

INPUTS: None 

OUTPUTS: TYPE, PNTLOW, PNTHGH, COUNT, CHECKSUM 

VARIABLES MODIFIED: A, CHECKSUM, COUNT, PNTHGH, PNTLOW, TYPE 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: ICI, HEXBIN 

GET_TYPE: 

;Scan for a colon. 



CALL 


UPI IN 


ANL 


A,#7FH 


CJNE 


A,#' : ' ,GET TYPE 


CLR 


A 


MOV 


CHECKSUM, A 


CALL 


HEXBIN 


MOV 


COUNT, A 


CALL 


HEXBIN 


MOV 


PNTHGH, A 


CALL 


HEXBIN 


MOV 


PNTLOW, A 


CALL 


HEXBIN 


MOV 


TYPE, A 


RET 





;Load the byte count from 

;the next two characters of the record. 

;Load the load address 



;Load the record type. 



$EJECT 
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LOC OBJ 



F372 


7158 


F374 


7019 


F376 


EF 


F377 


600E 


F379 


7140 


F37B 


FA 


F37C 


754600 


F37F 


12E672 


F382 


12E5C4 


1^85 


DFEF 


|[87 


7140 


■ 89 


EE 


T38A 


60E6 


F38C 


02F447 


F38F 


B401FA 


F392 


7140 


F394 


EE 


F395 


70F5 


F397 


12E386 


F39A 


AB45 


F39C 


AA44 


F39E 


12EFA8 


F3A1 


7A07 


F3A3 


7B00 


F3A5 


12EA45 


F3A8 


90A000 


F3AB 


EO 


I^AC 


22 



LINE 

4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 +1 



SOURCE 
* ********************************************************************* 

NAME: LOAD_HEX 

ABSTRACT: Loads audio cassette data files (type 0) until EOF 

is encountered. Calculates a checksum, passes label (addr), writes 
user PC, converts hex data to binary and returns. 

INPUTS: None 

OUTPUTS: Code memory locations addressed in the file being loaded. 

VARIABLES MODIFIED: A, PARAMl, SELECT, PNTLOW, PNTHGH, ERRNUM 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: GET_TYPE, HEXBIN, INIT_IO, 
ISTORE, WRITE_PC, ITIME 

******************************************************************* 
LOAD_HEX: 

CALL 
JNZ 



LH 4: 



LH 6: 



LH_ 
LH 



$EJECT 



MOV 

JZ 

CALL 

MOV 

MOV 

CALL 

CALL 

DJNZ 

CALL 

MOV 

JZ 

JMP 

CJNE 

CALL 

MOV 

JNZ 

CALL 

MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

MOV 

MOVX 

RET 



GET_TYPE 
LH_7 

A, COUNT 

LH_6 

HEXBIN 

PARAMl, A 

SELECT, #0 

ISTORE 

INC_PNT 

COUNT, LH_4 

HEXBIN 

A, CHECKSUM 

LOAD HEX 

LH_ETrROR 

A,#1,LH_8 

HEXBIN 

A, CHECKSUM 

LH_8 

INIT_IO 

PARAM2, PNTLOW 

PARAMl, PNTHGH 

WRITE_PC 

PARAMl, #07H 

PARAM2,#00H 

ITIME 

DPTR,#UPI DATA 

A,@DPTR 



If type is not zero (data record) 

then quit loading records. 

Load memory until the count gets 

to zero, COUNT=length read from file 



;Increment the load address. 
;Repeat the load loop until zero. 

;The end of the record has been reached 
;so check the checksum field. 
;Recall CHECKSUM from HEXBIN 



;Look for EOF (type 1) 



;Write addr (label) to user PC 



;Wait for 2 char times at 110 baud 
;So no other chars get into the 
;Command buffer. Flush output 
;buffer flag. 
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LOC OBJ 



F3AD 


200511 


F3B0 


7A01 


F3B2 


7B90 


F3B4 


12EA45 


F3B7 


12E717 


F3BA 


7A13 


F3BC 


7B88 


F3BE 


12EA45 


F3C1 


7A3A 


F3C3 


12E5E8 


F3C6 


C3 


F3C7 


E55A 


F3C9 


9558 


F3CB 


FF 


F3CC 


E559 


F3CE 


9557 


F3D0 


FD 


F3D1 


403E 


F3D3 


ED 


F3D4 


6002 


F3D6 


7F0F 


F3D8 


EF 


F3D9 


54F0 


F3DB 


6002 


F3DD 


7F0F 


F3DF 


OF 


F3E0 


E4 


F3E1 


FE 


F3E2 


EF 


F3E3 


7133 



LINE 

4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 



SOURCE 
****************************************************************** 

NAME: STORE_HEX 

ABSTRACT: This routine writes hex bytes on the cassette or to 

the USART from memory. It outputs all record marks and header 
information and calculates a checksum. 

INPUTS: BINARY_FLG, PART IT_LO_LOW . PART IT_LO_H IGH , PARTI T_H I_LOW , 
PARTIT_HI_HIGH , Memory contents within the partition bounds. 

OUTPUTS: None 

VARIABLES MODIFIED: PARAMl, PARAMl, C, A, COUNT, TEMP, CHECKSUM, 
SELECT, PNTHGH, PNTLOW, PART I T_LO_LOW , PARTIT LO HIGH, 
ERRNUM 

ERROR EXITS: 14H (FILE READ/WRITE ERROR) 

SUBROUTINES ACCESSED DIRECTLY: INEWLINE, ITIME, SEND BYTE, 
IFETCH, READ_PC, UPI_CMD, ICO, lERROR 

STORE HEX: 

JB BINARY_FLG,SH_6 

MOV PARAMl, #01H 

MOV PARAM2,#90H 

CALL ITIME 

CALL INEWLINE 

MOV PARAMl, #13H 

MOV PARAM2,#88H 

CALL ITIME 

SH_6: MOV PARAM1,#':' 

CALL ICO 

CLR C 

MOV A,PARTIT_HI LOW 

SUBB A,PARTIT_LO_LOW 

MOV COUNT, A 

MOV A,PARTIT_HI_HIGH 

SUBB A,PARTIT_LO_HIGH 

MOV TEMP, A 

JC SH_5 

MOV A, TEMP 

JZ SH 1 

MOV COUNT, #aFH 

SH_1: MOV A, COUNT 

ANL A,#OFOH 

JZ SH_2 

MOV COUNT, #OFH 

SH_2: INC COUNT 

CLR A 

MOV CHECKSUM, A 

MOV A, COUNT 

CALL SEND BYTE 



;Delay 40 milliseconds. 

;Start sending record. 

;Delay 1/2 sec. 

;Output the record mark. 

;Output hex records while sa<=ea. 

;(Save difference for later use). 



;Set count to 16 or the number of bytes 
; lef t-whi chever is less. 
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LOC 


OBJ 


F3E5 


E557 


F3E7 


7133 


F3E9 


E558 


F3EB 


7133 


F3ED 


E4 


F3EE 


7133 


F3F0 


754600 


F3F3 


855744 


F3F6 


855845 


F3F9 


12E66B 


F3FC 


7133 


F3FE 


E558 


F400 


2401 


F402 


F558 


^404 


5002 


|406 


0557 


f408 


DFE6 


F40A 


EE 


F40B 


F4 


F40C 


04 


F40D 


7133 


F40F 


809C 


F411 


E4 


F412 


FE 


F413 


7133 


F415 


12EF9D 


F418 


C5F0 


F41A 


7133 


F41C 


E5F0 


F41E 


7133 


F420 


E4 


i.421 


04 


1422 


7133 


P424 


EE 


F425 


F4 


F426 


04 


F427 


7133 


F429 


7A01 


F42B 


7B90 


F42D 


12EA45 


F430 


12E717 


F433 


20050A 


F436 


7A01 


F438 


12E625 


F43B 


7A1A 


F43D 


12E5E8 


F440 


7A13 


F442 


7B88 


F444 


02EA45 


»47 


754314 


r44A 


12E3E4 



LINE 



SOURCE 



1 4373 




MOV 


A,PARTIT 10 HIGH 


1 4374 




CALL 


SEND BYTE "" 


1 4375 




MOV 


A.PARTIT LO LOW 


1 4376 




CALL 


SEND BYTE 


1 4377 




CLR 


A 


1 4378 




CALL 


SEND_BYTE 


1 4379 


SH_3: 






1 4380 




MOV 


SELECT, #00H 


1 4381 




MOV 


PNTHGH,PARTIT LO HIGH 


1 4382 




MOV 


PNTLOW,PARTIT LO LOW 


1 4383 




CALL 


IFETCH 


1 4384 




CALL 


SEND BYTE 


1 4385 




MOV 


A,PARTIT LO LOW 


1 4386 




ADD 


A,#01H 


1 4387 




MOV 


PARTIT LO LOW, A 


1 4388 




JNC 


SH 4 


1 4389 




INC 


PARTIT LO HIGH 


1 4390 


SH_4: 


DJNZ 


COUNT, SH 3 


1 4391 




MOV 


A, CHECKSUM 


1 4392 




CPL 


A 


1 4393 




INC 


A 


1 4394 




CALL 


SEND BYTE 


1 4395 




JMP 


STORE HEX 


1 4396 


SH_5: 


CLR 


A 


1 4397 




MOV 


CHECKSUM, A 


1 4398 




CALL 


SEND BYTE 


1 4399 




CALL 


READ~PC 


1 4400 




XCH 


A,B 


1 4401 




CALL 


SEND BYTE 


1 4402 




MOV 


A,B 


1 4403 




CALL 


SEND BYTE 


1 4404 




CLR 


A 


1 4405 




INC 


A 


1 4406 




CALL 


SEND BYTE 


1 4407 




MOV 


A, CHECKSUM 


1 4408 




CPL 


A 


1 4409 




INC 


A 


1 4410 




CALL 


SEND BYTE 


1 4411 




MOV 


PARAM1,#1 


1 4412 




MOV 


PARAM2,#90H 


1 4413 




CALL 


ITIME 


1 4414 




CALL 


INEWLINE 


1 4415 




JB 


BINARY FLG,SH 7 


1 4416 




MOV 


PARAM1,#USART MODE 


1 4417 




CALL 


UPI CMD 


1 4418 




MOV 


PAR7^M1,#1AH 


1 4419 




CALL 


ICO 


1 4420 


SH_7: 


MOV 


PARAM1,#13H 


1 4421 




MOV 


PARAM2,#88H 


1 4422 




JMP 


ITIME 


1 4423 


LH_ERROR: 




1 4424 




MOV 


ERRNUM,#14H 


1 4425 




CALL 


lERROR 


1 4426 +1 


$EJECT 







;Now go into a loop to output the data. 
;Call fetch(0,sa). 



;Increment the address 



;Decrement count and loop till zero. 
;Once done output the negation of the 
;checksum. 

;Then go output another record 



;Skip control-Z if cassette operation. 
;Select USART mode. 

;Insert control Z to close MDS file 



;Delay 1/2 sec to catch cntrl Z in list mode 
;File read/write error 
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LOC OBJ 



F44D 


12E8BC 


F450 


854961 


F453 


854A62 


F456 


7AF5 


F458 


7B2D 


F45A 


12E9FF 


F45D 


12E5EB 


F460 


D205 


F462 


7A02 


F464 


12E625 


F467 


E548 


F469 


B4012E 


F46C 


7158 


F46E 


B402FB 


F471 


E561 


F473 


B544F6 


F476 


E562 


F478 


B545F1 


F47B 


7140 


F47D 


EE 


F47E 


70C7 


F480 


7172 


F482 


12E386 


F485 


90A000 


F488 


EO 


F489 


7AF5 


F48B 


7B3E 



LINE 

4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 

4458 
4459 
4460 
4461 
4462 
4463 

4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 

4477 
4478 



SOURCE 
****************************************************************** 

NAME: LOAD_CMD 

ABSTRACT: This routine calls the routThe LOAD_HEX which 

reads data files from the audio cassette in binary. It sets 
up the user messages and does checksums. 

INPUTS: None 

OUTPUTS: Code memory locations referenced by the file being loaded. 

VARIABLES MODIFIED: PCNHTI, PCNTLO, BINARY_FLG, PARAMl , A, 
PARAM2 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: IGETOKE, I PR INT_STR ING, 

ICI, UPI_CMD, GET_TYPE, HEXBIN, LOAD_HEX, INIT_IO, ILSTWRD, 
IWAIT_FOR_USER 

************************************************************************ 



LOAD_CMD: 

CALL 

MOV 

MOV 

MOV 

MOV 

CALL 

CALL 

n 

SETB 

MOV 

CALL 

MOV 

CJNE 

LOAD_LOOP: 

ory) 

CALL 

CJNE 

MOV 

CJNE 

MOV 

CJNE 

CALL 

MOV 

JNZ 

CALL 

CALL 

MOV 

MOVX 



bit 



MOV 
MOV 



IGETOKE 

PCNTHI,VALHGH 

PCNTLO, VALLOW 

PARAMl, #HIGH CASS_MSG 

PARAM2,#L0W CASS_MSG 

IPRINT_STRING 

ICI 

BINARY_FLG 

PARAMl, #CASSETTE_READ 

UPI_CMD 

A.TOKSTR 

A,#NUMBER_TOKE,FILE_DISPLAY 



GET_TYPE 

A,#2,L0AD_L00P 

A,PCNTHI 

A,PNTHGH,LOAD_LOOP 

A, PCNTLO 

A,PNTLOW,LOAD_LOOP 

HEXBIN 

A, CHECKSUM 

LH_ERROR 

LOAD_HEX 

I N I T_1 

DPTR,#UPI_DATA 

A,@DPTR 

PARAMl, #HIGH FILE_FOUND 
PARAM2,#L0W FILE FOUND 



;Have a valid LOAD cmd 
;Save addr (label) field 

;Set up "start cassette" msg 



;Holds msg on display long enough to be see 

;Indicates a binary file 

;Select cassette mode 

;Restore original token 

;If not a number, need to get next 

;Get number off cass and display it (direct 

;0=data file, 1=E0F, 2=file label record 
;Is it the beginning of a file? 
;Yes, get the label (addr) 



;Convert to hex, calculate checksum 

;Checksum error 

;Read the data file from cassette 



;Go back to console mode, clear OBF status 
;Set up °File loaded" msg 



MCS-51 MACRO ASSEMBLER 



'SDK-51 MONITOR CODE INTEL PROPRIETARY VERS. #1.03' 



M2,81 



PAGE 115 



LOG OBJ 



LINE 



SOURCE 



F48D 


12E9FF 


= ] 


L 4479 


CALL 


IPRINT STRING 


F490 


AA61 


= : 


L 4480 


MOV 


PARAM1,PCNTHI 


F492 


AB62 


= : 


L 4481 


MOV 


PARAM2,PCNTL0 


F494 


12E7F4 


= : 


[ 4482 


CALL 


ILSTWRD 


F497 


02E3B0 


= : 


[ 4483 


JMP 


IWAIT_FOR_USER 






= ] 


L 4484 


FILE DISPLAY: 




F49A 


7158 


= ; 


L 4485 


CALL 


GET TYPE 


F49C 


B402FB 


= : 


L 4486 


CJNE 


A, #7, FILE DISPLAY 


F49F 


12E386 


= ] 


L 4487 


CALL 


INIT 10 


F4A2 


90A000 


= : 


[ 4488 


MOV 


DPTR,#UPI DATA 


F4A5 


EO 


= ] 


[ 4489 


MOVX 
t 

MOV 


A,@DPTR 


F4A6 


7AF5 


= ] 


L 4490 


PARAM1,#HIGH NUM FOUND 


F4A8 


7B4E 


= ; 


L 4491 


MOV 


PARAM2,#L0W NUM FOUND 


F4AA 


12E9FF 


= : 


4492 


CALL 


IPRINT STRING 


F4AD 


AA44 


= ; 


4493 


MOV 


PARAM1,PNTHGH 


F4AF 


AB45 


= ; 


4494 


MOV 


PARAM2,PNTL0W 


F4B1 


12E7F4 


= : 


4495 


CALL 


ILSTWRD 


F4B4 


02E3B0 


= : 


4496 


JMP 


IWAIT FOR USER 






= : 


4497 +1 


$EJECT 





;Set up file number for display 



;Holds msg on display a short time 

;Get here by saying LOAD <CR> 

;Ask for directory, cant load w/o file # 



;Go back to console mode, clr OBF status bi 
;Sets up °first file found° msg 

;Set up file number (addr) for display 

;Holds msg on display a short time 
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LOC OBJ 



LINE 



SOURCE 



F4B7 


12E769 


F4BA 


854961 


F4BD 


854A62 


F4C0 


12E77A 


F4C3 


12E8BC 


F4C6 


12E7A2 


F4C9 


12E5BB 


F4CC 


7AF5 


F4CE 


7B2D 


F4D0 


12E9FF 


F4D3 


12E5EB 


F4D6 


D205 


F4D8 


7A82 


F4DA 


12E625 


F4DD 


7A3A 


F4DF 


12E5E8 


F4E2 


E4 


F4E3 


FE 


F4E4 


7133 


F4E6 


E561 


F4E8 


7133 


F4EA 


E562 


F4EC 


7133 


F4EE 


7402 


F4F0 


7133 


F4F2 


EE 


F4F3 


F4 


F4F4 


04 


F4F5 


7133 


F4F7 


61AD 



4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 



*************************************************************** 
NAME: SAVE_CMD 

ABSTRACT: This routine writes data in a user specified partition 
to the audio cassette in binary using STORE_HEX which provides 
address, type and checksum for each record. This procedure 
takes care of all UPI set up. 

INPUTS: Code memory within the partition 

OUTPUTS: None 

VARIABLES MODIFIED: PCNTHI, PCNTLO, PARAMl , PARAM2, BINARY_FLG 
A, CHECKSUM 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: IGETNUM, IGETOKE, IGET_PART, I PR INT_STR ING, 
ICI, UPI_CMD, ICO, SEND_BYTE, IGET_COMMA, IEOL_CHECK, STORE_HEX 

********************************************************** 



SAVE_CMD: 

CALL 
MOV 
MOV 
CALL 
CALL 
CALL 
CALL 
MOV 
MOV 
CALL 
CALL 
SETB 
MOV 
CALL 
MOV 
CALL 
CLR 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
MOV 
CPL 
INC 
CALL 
JMP 
+1 $EJECT 



IGETNUM 

PCNTHI, VALHGH 

PCNTLO, VALLOW 

IGET_COMMA 

IGETOKE 

IGET_PART 

IEOL_CHECK 

PARAMl, #HIGH CASS_MSG 

PARAM2,#L0W CASS_MSG 

IPRINT_STRING 

ICI 

BINARY_FLG 

PARAMl, #CASSETTE_WRITE 

UPI_CMD 

PARAMl, #' : ' 

ICO 

A 

CHECKSUM, A 

SEND BYTE 

A.PCTTTHI 

SEND_BYTE 

A, PCNTLO 

SEND BYTE 

A #2~ 

SEND BYTE 

A, CHECKSUM 

A 

A 

SEND_BYTE 

STORE HEX 



;Select cassette mode 
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LOC OBJ 



F4F9 C205 

F4FB 7A00 

F4FD 12E625 

F500 7AF5 

F502 7B23 

F504 12E9FF 

F507 7A01 

F509 12E625 

F50C 7172 

F50E 22 



LINE 

4553 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4585 +1 



SOURCE 

NAME: DOWNLOAD_CMD 

ABSTRACT: This routine temporarily turns off the list mode, 
selects the console, configures the UPI and loads hex files 
from the auxilary terminal into memory. 

INPUTS: None 

OUTPUTS: Code memory location specified in the file being loaded. 

VARIABLES MODIFIED: PARAMl, PARAM2, BINARY_FLG 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: I PR I NT_STR ING , UPI_CMD, 
LOAD_HEX 

****************************************************************** 



DOWNLOAD_CMD: 
CLR 
MOV 
CALL 
MOV 
MOV 
CALL 
MOV 
CALL 
CALL 
RET 

$EJECT 



BINARY_FLG 

PARAMl, #SELECT_CON 

UPI_CMD 

PARAMl, #HIGH LOAD_MSG 

PARAM2,#L0W LOAD_MSG 

IPRINT_STRING 

PARAMl, #USART MODE 

UPI_CMD 

LOAD HEX 



;Set "LIST 



RESET" 



;Print loading msg 
;Select USART mode 



MCS-51 MACRO ASSEMBLER 



'SDK-51 MONITOR CODE INTEL PROPRIETARY VERS. #1.03' 



^12, 81 



PAGE Hi 



LOC OBJ 



LINE 





= ] 


L 4586 




= : 


L 4587 




= ; 


4588 




= ; 


[ 4589 




= : 


L 4590 




= 


L 4591 




= : 


L 4592 




= ; 


L 4593 




= 1 


L 4594 




= 1 


L 4595 




= 


L 4596 




= 1 


L 4597 




= 


L 4598 




= ] 


[ 4599 




= 


L 4600 




= 


L 4601 




= 


L 4602 




= ] 


L 4603 




= 


L 4604 




= 


L 4605 




= 


L 4606 




= 


L 4607 




= 


L 4608 


F50F 


12E8BC 


L 4609 


F512 


12E7A2 


L 4610 


F515 


12E5BB 


L 4611 


F518 


C205 


L 4612 


F51A 


C201 


L 4613 


F51C 


7A40 


L 4614 


F51E 


12E625 


L 4615 


F521 


61AD 


L 4616 




= 


L 4617 


F523 


09 


L 4618 


F524 


OD 




F525 


OA 




F526 


4C4F4144 




F52A 


494E47 




F52D 


10 


L 4619 


F52E 


OD 




F52F 


OA 




F530 


53544152 




F534 


54204341 




F538 


53534554 




F53C 


5445 




F53E 


OF =] 


L 4620 


F53F 


OD 




F540 


OA 




F541 


4C4F4144 




F545 


45442046 




F549 


494C4520 




F54D 


20 




F54E 


13 =1 


L 4621 


F54F 


46495253 




F553 


54204649 




F557 


4C452046 





SOURCE 

NAME: UPLOAD_CMD 

ABSTRACT: This routine gets a token and partition, turns off 
list mode and outputs hex files to the console through the 
UPI. 

INPUTS: Code memory locations specified by the partition typed 
by the user. 

OUTPUTS: None 

VARIABLES MODIFIED: PARAMl, BINARY_FLG, LSTFLG 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: IGET_PART, IGETOKE, 
UPI_CMD, STORE_HEX, IEOL_CHECK 

UPLOAD_CMD: 
CALL 
CALL 
CALL 
CLR 
CLR 
MOV 
CALL 
JMP 



IGETOKE 
IGET_PART 
IEOL_CHECK 
BINARY_FLG 
LSTFLG 
PARAMl, #40H 
UPI_CMD 
STORE HEX 



;Set 'LIST = RESET' 

;Select Keybd/Disply with list on. 



.•*****•••*••*•****•********•*••••*•**•**•*•*•****•*•****•*******•• 



LOAD_MSG: DB 9 ,CR , L F , ( ' LOADI NG ' 



CASS_MSG: DB 16 ,CR , LF ,(' START CASSETTE'] 



FILE_FOUND: DB 15 , CR , LF ,(' LOADED FILE 



NUM_FOUND: DB 19, ('FIRST FILE FOUND = '] 
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LOC OBJ 



LINE 



SOURCE 



F55B 


4F554E44 












F55F 


203D20 
















_ • 


4622 


.**•*****■■*•*•*•**•*********•*•*••*••***• 






= 


L 4623 


VERIFY CMD: 






F562 


906009 


= 


[ 4624 


MOV 




DPTR,#6009H 


F565 


800D 


= : 


L 4625 


SJMP 




JMP_TAB_CHECKER 






= 


L 4626 


TRANSFER CMD: 






F567 


906006 


= 


[ 4627 


MOV 




DPTR,#6006H 


F56A 


8008 


= ■ 


[ 4628 


SJMP 




JMP_TAB_CHECKER 






= 


L 4629 


PROGRAM CMD: 






F56C 


906003 


= 


L 4630 


MOV 




DPTR,#6003H 


F56F 


8003 


= 


[ 4631 


SJMP 




JMP_TAB_CHECKER 






= 


L 4632 


MODE CMD: 






F571 


906000 


= 


L 4633 


MOV 




DPTR,#6000H 






= : 


L 4634 


JMP TAB CHECKER 




^574 


E4 


= 


[ 4635 


CLR 




'a 


k5 7 5 


93 


= 


L 4636 


MOVC 




A,0A+DPTR 


P576 


B40202 


= : 


[ 4637 


CJNE 




A, #2, FAKE BAD CMD ERR 


7579 


E4 


= : 


L 4638 


CLR 




A 


F57A 


73 


= 


[ 4639 


JMP 




(BA + DPTR 






= 


L 4640 


FAKE BAD CMD 


ERR: 


F57B 


754302 


= : 


[ 4641 


MOV 




ERRNUM,#02H 


F57E 


02E3E4 




[ 4642 
4643 
4644 


JMP 
ASMBASE: 
END 




lERROR 



*■***••***• 



;Check for first byte of LJMP opcode 
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XREF SYMBOL TABLE LISTING 



NAME 



TYPE 



VALUE AND REFERENCES 



A_TOKE N 

AB_TOKE N 

ABR_TOKE N 

ACALL_TOKE N 

ACC N DSEG 

ACC_CMD L CSEG 

ACC_TOKE N 

ADD_TOKE N 

ADDC_TOKE N 

ADDR_SAVE_HIGH. . . N 

ADDR_SAVE_LOW . . . N 

AJMP_TOKE N 

ALFNUM L CSEG 

ALPHA L CSEG 

ANEND L CSEG 

ANL_TOKE N 

ANY_BR_FLAG . . . . L BSEG 

ASM_PC_HIGH . . . . L DSEG 

ASM_PC_LOW L DSEG 

ASM TOKE N 

ASMMSE L CSEG 

ATA_TOKE N 

ATDPTR_TOKE . . . . N 

ATRO_TOKE N 

ATR1_T0KE N 

AZEND L CSEG 

AZTEST. ...... L CSEG 

B . N DSEG 

B_CMD . L CSEG 

B_LAB_1 L CSEG 

B_LAB_2 L CSEG 

B_LAB_3 e L CSEG 

B_0_T L BSEG 

B_T0KE N 

B V ERR L CSEG 

BT^Cl^SP. ...... N 

BAR_TOKE N 

BASE N 

BAUD_CMD L CSEG 

BAUD DISPLAY. . . . L CSEG 

BAUD~HIGH N 

BAUD_LOW N 

BAUD_RATE L CSEG 

BAUD_TOKE N 

BAUDKEY N 

BEND L CSEG 



0051H 
005CH 
0088H 
0012H 
OOEOH 
212 
343 
ED2AH 
0098H 
0024H 
0023H 
00F3H 
00F4H 
0013H 
E744H 
E8C7H 
E74AH 
0021H 
0002H 
004BH 
004CH 
OOBOH 
F581H 
OOOAH 
005FH 
0052H 
0053H 
E72CH 
E720H 
OOFOH 
323 
440 
ED3CH 
EAA5H 
EAAAH 
EAAFH 
OOOOH 
009BH 
EFD6H 
0008H 
0003H 
EOOOH 
316 
FIFDH 
F26AH 
00F7H 
00F8H 
F255H 
OODOH 
OOFCH 
EBC6H 



450 
451 
452 
453 
PRED 
6 212 
5 343 
919 
454 
455 
456 
401 
402 
457 
172 
216 
172 
458 
437 
256 
257 
459 
921 
224 
447 
448 
449 
170 
169 
PRED 
9 333 
440 
923 
264 
264 
264 
277 
460 
359 
371 
220 
216 
317 
925 
396 
405 
406 
396 
461 
410 
283 



# 552 

# 553 

# 554 

# 555 
EFINE 

7 252 

8 346 
3089 

# 556 
557 
558 
363 



916 2891 



D 837 
2951 
7 3470 
# 
918 



838 905 1127 1151 1299 1306 1338 1402 1601 1607 1616 2082 2122 2123 
2972 3038 3090 3222 3225 3228 3288 3291 3323 3327 3348 3360 3364 
3471 3719 4067 4129 



# 
# 
# 
# 

# 559 
3# 21 
5 216 
5 172 

# 560 

# 292 
30 
31 

561 
933 

# 548 
549 
550 
551 
170 

17 



# 83 



80 2190 

8# 

8# 

7 2936 2957 



920 
4643# 



# 

# 

# 

1 

7# 

EFINE 

3 333 

2 
3101 

5 264 

7 264 

9 265 
216 
562 
359 

# 209 

# 233 

# 296 
320 3 

3958 
402 

# 817 
# 

2 
# 
# 
5 



3# 

23 2177 

D 836 901 906 1639 1640 2252 2260 2261 2379 2385 2596 2598 3102 3146 3238 

5 3414 3416 3509 3512 3704 3714 3881 3989 3992 3995 4000 4068 4072 4074 

# 

7# 

9# 

1# 

3 2217 

922 
5# 

9 2102 
5 

297 298 299 300 301 302 303 305 306 307 308 309 310 311 312 313 314 315 
47 1069 
# 
9# 

3975 4030 



401 
563 
813 
285 



924 

3981 3986 
2853# 
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NAME 



TYPE 



VALUE AND REFERENCES 



BINARY_FLG L BSEG 

BINARY_LOAD . . . . L CSEG 

BITLOP L CSEG 

BITROT L CSEG 

BITSTR L CSEG 

BKILOP L CSEG 

BLINK N 

BM_1 L CSEG 

BMOVE L CSEG 

BR_CMD L CSEG 

BR_TOKE N 

BREAK L CSEG 

BREAK_CONTINUE. . . L CSEG 

BREAK_MSG L CSEG 

BREAK_STATUS. . . . N 

REAK_VECTOR. . . . L CSEG 

Ik_LINE_HDR. . . . L CSEG 

k_LOOP. ..... L CSEG 

BRKl L CSEG 

BRK2 L CSEG 

BRK3 L CSEG 

BRK4 L CSEG 

BRK5 L CSEG 

BRKEND . L CSEG 

BRKERR L CSEG 

BRKMORE L CSEG 

BRKOFF N 

BS_2 L CSEG 

BS_LOOP L CSEG 

C_READ L CSEG 

C TOKE N 

_C7\"RSET L CSEG 

|SS_MSG L CSEG 

ISSETTE_READ . . . N 

'SSETTE_WRITE. . . N 

CAUSE_CMD L CSEG 

CAUSE_IMAGE . . . . L DSEG 

CAUSE_TAB L CSEG 

CAUSE_TOKE N 

CBYTE_TOKE N 

CHANGE L CSEG 

CHANGE_CHECK. . . . L CSEG 

CHARIN L DSEG 

CHECK_ABREV . . . . L CSEG 

CHECK_EPROMS. . . . L CSEG 

CHECK_ESC L CSEG 

CHECK_FROM L CSEG 

CHECK_LOOP L CSEG 

CHECK_OUT_OK. . . . L CSEG 

^^ECKSUM N REG 

^HkcNT L DSEG 

^Wl N 

CJNE_TOKE N 

CL LOOP L CSEG 



0005H 


440# 4188 4215 4343 4415 4458 4533 4575 4612 


F354H 


4215 4224# 


E6EEH 


1628# 1632 


E6F5H 


1628 1631# 


E6F8H 


1623 1633# 


EC68H 


2958# 2974 


0080H 


234# 1522 2069 


F24CH 


3969 4006# 


EB58H 


2601 2804# 


EBC7H 


917 927 2887# 


0089H 


462# 564 926 2899 3013 


E003H 


328# 839 3584 3588 3592 


EE83H 


3300 3306 3317# 


F1B6H 


3877 3878 3889# 


OOFBH 


409# 3298 3351 3663 3763 3859 


EFC2H 


3580# 3665 3862 


ECD5H 


2938 2981 3011# 


EE3FH 


3281# 3286 


EED2H 


3353 3355# 


EEDBH 


3357 3359# 


EE97H 


3323 3329# 


EEA7H 


3325 3327 3337# 


EEAIH 


3332 3334# 


EC44H 


2936 2941# 


ED24H 


3038 3063# 


EE78H 


3308 3312# 


COOOH 


392# 2929 2958 3023 3045 3302 


F24EH 


3967 4008# 


F20AH 


3964# 4009 


E68CH 


1575 1583# 


005EH 


225# 565 


E72BH 


1699 1700 1702# 


F52DH 


4454 4455 4529 4530 4619# 


0002H 


383# 4459 


0082H 


384# 4534 


F2B8H 


929 4119# 


0060H 


426# 832 3304 3310 3316 3322 3326 3355 3359 3709 4123 


F2DCH 


4124 4143# 


00D2H 


463# 566 928 


0080H 


226# 567 930 1574 2600 2645 2767 2806 


ED57H 


3109 3114# 


E79BH 


1841 1849# 


0050H 


261# 1006 2072 2092 2125 2131 2164 2176 2187 2193 2255 2267 2271 2275 2343 


E913H 


2198 2203# 


E3BAH 


795 1068# 


E664H 


1524# 1528 


EFBIH 


3545# 3622 3817 


E3BFH 


1071# 1078 


E3E3H 


1080 1091# 


R6 


290# 1070 1074 1075 1079 4184 4185 4186 4225 4226 4227 4255 4300 4305 4370 


4397 


4407 4471 4539 4547 


0051H 


262# 1004 2053 2060 2089 2093 


E009H 


297# 


0019H 


464# 568 


F2C7H 


4126# 4132 



MCS-51 MACRO ASSEMBLER 



'SDK-51 MONITOR CODE INTEL PROPRIETARY VERS. #1.03' 



,12,81 



PAGE 122 



NAME 



TYPE 



VALUE AND REFERENCES 



CL L CSEG F2CFH 

CL^_BRK_LATCHES . . N 0008H 

CLR_TOKE N 002AH 

CLRBRK L CSEG ECEIH 

CLRLOP L CSEG ECEAH 

CMDTAB L CSEG E30EH 

CO N E006H 

COMMA_TOKE N 0002H 

CONTINUATION_LINE . N E068H 

CONTINUOUS_MODE . . N 0040H 

CONVHEX L CSEG E7EBH 

COPYRIGHT L CSEG E030H 

COUNT N REG R7 

COUNTl L CSEG EB3DH 

COUNTR L DSEG 005DH 

CPL_TOKE N 002BH 

CR N OOODH 

CRWAIT L CSEG E828H 

CSTS N EOOCH 

CSTS_1 L CSEG E609H 

DA_TOKE N 002CH 

DASM_TOKE N 00B8H 

DATA_BREAK N OOODH 

DATA_MSG L CSEG F310H 

DATA_TOKE N 00D3H 

DATECODE L CSEG E046H 

DBYTE L CSEG E6BBH 

DBYTE_TOKE N 0082H 

DCLAUSE L CSEG FOOEH 

DEC HIGH L CSEG E5D6H 

DEC~PNT L CSEG E5CDH 

DEC_TOKE N 0035H 

DECODE . L CSEG E2F1H 

DECODE_CALL . . . . L CSEG E2E7H 

DELAY . N 00F5H 

DELET L CSEG E871H 

DIS_OR_ERR. .... L CSEG EA7FH 

DISERR. ...... L CSEG EADAH 

DISFET L CSEG EB29H 

DISLOP L CSEG EB05H 

DISMEM L CSEG EB02H 

DISPLAY_LIST. . . . L CSEG FIFOH 

DISPLAY_TOKEN . . . N E059H 

DIV_TOKE N 0031H 

DJNZ_TOKE N 0025H 

DLY_THRU L CSEG FOEDH 

DLYCNT L DSEG 005CH 

DONT_WAIT ..... L CSEG E666H 

DOWN MOVE L CSEG EBA6H 

DOWNrOAD_CMD. . . . L CSEG F4F9H 

DOWNLOAD_TOKE . . . N OOEOH 

DPH N DSEG 0083H 

243 

347 

DPL N DSEG 0082H 



4129 4133# 

379# 1011 3668 3868 

465# 569 

790 2900 2921 3021# 

3025# 3027 3029 

891 892 915# 

296# 

370# 1813 2334 2639 2904 3627 3645 

315# 

395# 3997 

1932 1936 1959# 1993 1997 

350# 

289# 2435 2443 4125 4132 4257 4291 4298 4356 4363 4364 4367 4368 4371 4390 

2754 2756 2758# 

423# 2733 2734 2735 2749 2758 

466# 570 

372# 981 1156 1667 2074 2078 2279 2339 2342 3888 3890 4618 4619 4620 

2063# 2098 2105 2108 2120 2124 2134 

298# 

1337# 1338 

467# 572 

468# 571 573 932 

387# 3838 3851 

4147 4156# 

469# 574 3835 3848 

351# 

1599 1605# 

470# 575 934 1605 2647 2769 

3630 3647# 

1242 1244# 

1239# 2827 2836 

471# 576 

893 895# 912 

888 890# 

403# 3656 3766 

2097 2099# 

2597 2602# 

2673# 2697 

2736 2750# 

2734# 2762 

2604 2733# 

3917 3930# 

310# 

472# 577 

473# 578 

3770 3776# 

422# 3768 3769 3771 

1521 1526# 

2815 2838# 2852 

937 4574# 

474# 579 936 
PREDEFINED 834 1077 1141 1335 1340 1427 1435 1458 1466 1492 1495 1572 2386 2387 
1 2550 2559 2946 2948 2949 2967 2969 2970 3040 3042 3043 3053 3054 3157 3221 3224 
3 
PREDEFINED 813 833 1142 1334 1341 1426 1436 1457 1467 1491 1496 1573 1602 1608 1621 
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NAME 



TYPE 



VALUE AND REFERENCES 



DPTR_CMD L CSEG 

DPTR_TOKE N 

DT LOOP L CSEG 

DTTT L CSEG 

DTO_0 L CSEG 

DTI L CSEG 

ENDMOD L CSEG 

EOL_CHECK N 

EOL_ERROR L CSEG 

EOL_TOKE N 

EOLMEM L CSEG 

_ EQLMOD L CSEG 

^^kEQUAL_TOKE N 

^^■eRR L CSEG 

^IFeRRMOD L CSEG 

ERRNUM L DSEG 

ERROR N 

ERROR_BEGIN . . . . L CSEG 

ERROR_LOOP L CSEG 

ERROR_MSG L CSEG 

ERROR_TABLE . . . . L CSEG 

ERROR_TEST L CSEG 

ERRSET L CSEG 

ESC N 

EXERRO L CSEG 

EXERRl L CSEG 

•FO N BSEG 

FAKE BAD CMD ERR. . L CSEG 

FETCTT . 7 . 7 . . . N 

FETEND L CSEG 

FETERR L CSEG 

FILE_DISPLAY. . . . L CSEG 

FILE_FOUND L CSEG 

FILLl L CSEG 

FILLMEM L CSEG 

FILLOOP L CSEG 

FIRST FLAG L BSEG 

FOREVER_TOKE. . . . N 

FROM_TOKE N 

GET_COMMA N 

GET_PART N 

GET_TYPE L CSEG 

GETCHR L CSEG 

GETEOL N 

^GETNUM N 

jETOKE N 

80_CMD L CSEG 

"GO_TOKE N 

GOOD TOKE FOUND . . L CSEG 



1622 
3227 
3294 
3454 
ED7DH 
OOAIH 
EA26H 
EA20H 
EA15H 
EA23H 
EC12H 
E06EH 
E5BFH 
0007H 
EAD7H 
EBDAH 
0004H 
E6CDH 
EBD7H 
0043H 
2805 
4424 
E05FH 
E41BH 
E41DH 
E426H 
E42DH 
E40BH 
E9BCH 
OOIBH 
F04FH 
FIOCH 
00D5H 
F57BH 
E04AH 
E69DH 
E6CAH 
F49AH 
F53EH 
EBOIH 
EADDH 
EAECH 
0003H 
0008H 
0009H 
E06BH 
E065H 
F358H 
E815H 
E053H 
E050H 
E056H 
FIOFH 
00C2H 
E91AH 



2383 
3230 
3298 
3457 
939 
227# 
2479 
2472 
2468 
2473 
2904 
317# 
1206 
223# 
2639 
2889 
369# 
1597 
2806 
248# 
2892 
4641 
312# 
1140 
1149 
1081 
1087 
1138 
2322 
376# 
3649 
3792 
PREDE 
4637 
305# 
1582 
1581 
4462 
4477 
2708 
2600 
2701 
438# 
475# 
476# 
316# 
314# 
4250 
2053 
308# 
307# 
309# 
941 
477# 
2197 



2384 2432 2553 2558 2943 2944 2964 2965 3036 3044 3050 3051 3158 3220 3224 
3234 3238 3241 3244 3247 3250 3253 3256 3261 3264 3267 3270 3273 3276 3290 
3403 3406 3410 3414 3417 3420 3424 3427 3430 3433 3439 3442 3445 3448 3451 
3460 3465 3465 3468 3471 3474 3641 3726 3981 3999 
3156# 
580 938 

# 2484 
2474# 

# 2476 
2477# 
2918# 

1208# 

888 1206 1841 2339 2641 2889 2906 2917 3818 

2669 2672# 

2894# 

1851 2336 2597 2895 

1601 1607 1612# 

2893# 2895 2920 

821 913 1133 1139 1209 1595 1611 1801 1812 1850 1879 H 



}7 2201 2288 2321 2696 



2894 2919 3063 3309 3596 3648 3652 3708 3832 3841 3847 3922 3972 4066 4121 



1146 

115 

1082 

1088 

115 

2341 

1308 

3653 

# 383 

FINED 

4640 



1130 1131 1155# 
1137 1157# 



3315 3786 

3655 3676# 

3 3842 3848 

1568 1571 1575 1587 1592 1603 1609 1623 

# 



1585 1589 1592# 1613 1630 
1611# 

4484# 4486 
4478 4620# 
2711# 
2696# 
# 2710 
2928 2979 2982 
582 3825 
581 583 3547 



# 4253 4288 4464 4485 

# 2166 2186 2192 2266 2273 2346 



3816# 
584 940 
2208# 
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TYPE 



GR N 

GR_PORT N 

GTO L CSEG 

GTl L CSEG 

GUARD_MSG L CSEG 

HEXl L CSEG 

HEXBIN L CSEG 

HEXCHR L CSEG 

HEXEND L CSEG 

HEXSTR L CSEG 

HORIZONTAL_TAB. . . N 

HTEST L CSEG 

HXTEST L CSEG 

IASCII_TO_HEX . . . L CSEG 

IBREAK L CSEG 

ICI L CSEG 

ICO L CSEG 

ICONTINUATION_LINE. L CSEG 

ICSTS L CSEG 

IDISPLAY_TOKEN. . . L CSEG 

IE N DSEG 

lEO N BSEG 

IEOL_CHECK L CSEG 

lERROR L CSEG 

IFETCH L CSEG 

IGET_COMMA L CSEG 

IGET_PART L CSEG 

IGETEOL L CSEG 

IGETNUM L CSEG 

IGETOKE L CSEG 

ILSTBYT L CSEG 

ILSTWRD L CSEG 

INC HIGH L CSEG 

INC~PNT L CSEG 

INC_TOKE N 

INEWLINE L CSEG 

INIT_IO L CSEG 

INPUT L CSEG 

INPUTOK L CSEG 

IP N DSEG 

IPRINT_STRING . . . L CSEG 

ISAVE_AND_DISPLAY . L CSEG 

ISIT_DISPLAY. . . . L CSEG 

ISTORE L CSEG 

ITO ........ N BSEG 

ITIME L CSEG 

IWAIT_FOR_USER. . . L CSEG 

IWAIT_F0R_USER_1. . L CSEG 

JB_TOKE N 

JBC_TOKE N 

JC TOKE N 

JM"P TAB CHECKER . . L CSEG 



VALUE AND REFERENCES 

00F6H 404# 799 3828 3837 3 

0003H 381# 1009 3666 3866 

E924H 2213 2214# 

E929H 2215 2216# 

F2F3H 4145 4152# 

EA42H 2520 2522# 

F340H 4214# 4256 4258 4260 

E967H 2249 2269# 

E743H 1715 1719 1721# 

E93BH 2246# 2268 

0009H 374# 2109 

E96BH 2247 2271# 

E737H 1713# 2246 

EA3CH 339 2518# 4217 4222 

EDC6H 328 3220# 

E5EBH 1298# 1525 2071 3787 

E5E8H 332 1276# 1523 1668 

3713 3718 3725 3735 3746 

E65DH 363 1520# 2760 2980 

E602H 1045 1334# 1489 1527 

EA12H 358 1844 2465# 2742 

00A8H PREDEFINED 3230 3231 

0089H PREDEFINED 3475 

E5BBH 365 1205# 1806 2603 

E3E4H 360 914 1121# 1210 1 

4011 4425 4642 

E66BH 353 1567# 2750 2825 

E77AH 364 1810# 4525 

E7A2H 362 1877# 2593 2901 

E773H 356 1805# 2699 2922 

E769H 355 1800# 1887 2634 

E8BCH 357 887 1800 1805 18 

2905 2916 3546 3552 3628 

E7F9H 337 1085 1134 1986 1 

E7F4H 338 1986# 2746 2985 

E5CCH 1234 1236# 

E5C4H 1232# 2637 2709 2761 

0037H 478# 585 

E717H 335 1666# 1842 2063 

E386H 796 886 1002# 1124 3 

E8A6H 2109 2125# 

E8AEH 2126 2127 2128# 

00B8H PREDEFINED 3241 3242 

E9FFH 340 862 1083 1089 11 

E7DDH 359 1929# 2663 2665 

E784H 1837# 3106 3142 3171 

E672H 354 1570# 2636 2702 

0088H PREDEFINED 3476 

EA45H 336 1019 1123 2548# 

E3B0H 361 863 1041# 1144 2 

E3B4H 1044# 1046 

0027H 479# 586 

0028H 480# 587 

0018H 481# 588 

F574H 4625 4628 4631 4634# 



150 3855 3870 



4262 4293 4299 4304 4470 



4220 4457 4532 
1670 1846 1995 1999 2100 2103 2132 2442 2492 2748 2764 30H 
3761 3928 4191 4352 4419 4537 

3307 3780 
2940 2998 3014 3934 
3233 3320 3460 3464 3478 

2672 2918 3673 3854 4528 4611 

612 1808 2202 2289 2341 2673 2893 3065 3311 3597 3676 3710 3792 

2840 3110 3175 3178 3757 4383 

4527 4610 

3154 3190 3659 3827 3836 3849 

2807 3115 3150 3184 3548 3633 3961 4064 4522 

11 1840 1885 1899 2163# 2167 2592 2599 2638 2640 2668 : 

3644 3646 3834 3844 3846 3918 4451 4526 4609 

990# 2752 3112 3722 3739 3759 4085 4090 4094 4189 

3007 3147 3181 3715 3732 3883 4036 4482 4495 

2842 2851 2952 2973 4297 

2085 2737 3012 3702 3929 4347 4414 
337 3343 4307 4474 4487 



2896 



3439 3441 
32 1143 2430# 35 



J5 3879 4141 4456 4479 4492 4531 4580 



3916 3959 4061 4120 
2829 2844 3117 3186 3189 4296 

3774 3779 4313 4346 4350 4413 4422 

757 2941 3113 3148 3182 3790 3884 3935 4037 4096 4142 4483 44^ 
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JMP_TOKE N 0032H 

JNB_TOKE N 0026H 

JNC_TOKE N 0017H 

JNZ_TOKE N 0015H 

JZ_TOKE N 0016H 

KEY_BYTE L CSEG ED42H 

KEYTAB L CSEG E0D8H 

KEYWORD_DISPLAY . . L CSEG ED95H 

LABI L CSEG E761H 

LABIO L CSEG E9C8H 

LAB18 L CSEG FOIBH 

LABIA L CSEG E764H 

LABIB L CSEG E765H 

LAB2 L CSEG EC2AH 

LAB23 L CSEG EB51H 

LAB3 L CSEG EC60H 

AB5A L CSEG EC51H 

AB5B L CSEG EC47H 

AB6A L CSEG EC7EH 

LAB7 L CSEG ECBOH 

LABS L CSEG ECDOH 

LB_10 L CSEG EC9CH 

LCALL TOKE N OOIOH 

LDLOO^ L CSEG EA88H 

LEGALI L CSEG E882H 

LENGTH_HIGH . . . . L DSEG 0063H 

LENGTH_LOW L DSEG 0064H 

LP N OOOAH 

LFTROT. L CSEG E711H 

LH_4 L CSEG F376H 

LH_6 L CSEG F387H 

LH_7 L CSEG F38FH 

LH_8 L CSEG F38CH 

H_ERROR L CSEG F447H 

INBUF L DSEG 0024H 

INCNT L DSEG 0053H 

LINE START L DSEG 0052H 

LINMM N 0018H 

LIST_1 L CSEG F1F7H 

LIST_2 L CSEG FIDBH 

LIST_CMD L CSEG FICDH 

LIST_TOKE N 00D7H 

LJMP_TOKE N OOllH 

LNLGTH L DSEG 0054H 

LOAD CMD L CSEG F44DH 

LOAD~HEX L CSEG F372H 

LOAD_LOOP L CSEG F46CH 

LOAD_MSG. ..... L CSEG F523H 

LOAD_TOKE N 00E2H 

LODMEM L CSEG EA85H 

LSSEQL L CSEG E74BH 

^ STBRK L CSEG EC21H 

STBYT N E015H 

STFLG L BSEG OOOIH 

LSTOUT L CSEG EC8DH 



482# 589 

483# 590 

484# 591 

485# 592 

486# 593 

3091 3095 3099 3103 3105# 

657# 2200 2378 2478 

3159 3164 3170# 

1761 1767# 

2342 2346# 

3651 3652# 

1766 1770# 

1753 1771# 

2929# 2953 2978 2994 3009 

2739 2767# 

2951 2955# 

2945 2947# 

2935 2942# 

2966 2968# 

2988 2990# 

3005 3007# 

2979 2981# 

487# 594 

2635# 2671 

2095 2106# 

429# 1896 2822 

430# 1893 2819 

373# 981 1156 1669 3888 3890 4618 4619 4620 

1644# 1645 

4291# 4298 

4292 4299# 

4289 4303# 

4302# 4303 4306 

4302 4423# 4472 

242# 2019 2061 2075 2088 2110 2128 2642 2908 

264# 2169 2173 2174 2189 

263# 885 2058 2097 2667 2907 3346 

232# 242 2107 2119 

3932 3934# 

3919 3922# 

943 3915# 

488# 595 942 

489# 596 

265# 1005 2054 2059 2064 2076 2079 2086 2096 2104 2106 2111 2113 2116 2129 2133 

945 4450# 

4287# 4301 4473 4583 

4463# 4465 4467 4469 

4578 4579 4618# 

490# 597 944 

2598 2634# 

1753# 2934 2961 2977 

2891 2924# 

301# 

278# 436 794 1125 1521 2081 3345 3920 3926 3932 4613 

2962 2972 2975# 
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LSTWRD N E018H 

MAXHGH N OOIFH 

MAXLOW N OOFFH 

MAXNUM FLAG . . . . L BSEG 0004H 

MEMORY L CSEG E676H 

MEM0RY_CMD L CSEG EA5BH 

MODE CMD L CSEG F571H 

MODE~TOKE N 00B9H 

M0N_FLAGS N OOFAH 

MORE_CONT L CSEG E89EH 

MORE_SPACE L CSEG E893H 

MOV_TOKE N OOIFH 

MOVC TOKE N OOIAH 

MOVX~TOKE N OOIBH 

MUL_TOKE N 0030H 

MULTISTEP N OOFFH 

NEWLINE N EOOFH 

NEXT ENTRY. . . . . L CSEG E303H 

NMTEST L CSEG E72DH 

NO_BREAK N 0009H 

NOBRK_MSG L CSEG F327H 

NOP_TOKE N 003BH 

NOT_MATCH_TBL . . . L CSEG E9AAH 

NOT STEP N OOFBH 

NOT~STEP THREE. . . L CSEG F06AH 

NOTBOT. 7 L CSEG E92DH 

NOTDAT L CSEG F13FH 

NOTFOR L CSEG F127H 

NOTFRM L CSEG EFCIH 

NOWAIT L CSEG EB45H 

NTLAST L CSEG EB4AH 

NUM_FOUND L CSEG F54EH 

NUMBER L CSEG E930H 

NUMBER_1 L CSEG E972H 

NUMBER_2 L CSEG E979H 

NUMBER 3 L CSEG E97EH 

NUMBER~4 L CSEG E983H 

NUMBER~ERR L CSEG E988H 

NUMBER_FOUND. . . . L CSEG E98EH 

NUMBER_OF_BYTES . . L DSEG 004DH 

NUMBER_TOKE . . . . N OOOIH 

NUMEND L CSEG E736H 

NUMMEN L CSEG EAD2H 

NUMMOD L CSEG EBEDH 

OFST N OOIOH 

481 

523 

ON TOKE ...... N OOOFH 

OR TOKE N OOOBH 

OR^_TOKE N 00D4H 

ORL_TOKE N 0022H 

OUR_CODE_HIGH . . . L DSEG 004EH 

OUR CODE_LOW. . . . L DSEG 004FH 

OUTIBK L CSEG EDICH 

OUTCHR L CSEG E85CH 



302# 

398# 2930 3022 3047 

397# 2931 3021 

439# 1002 1753 1756 1771 

1569 1572# 

931 935 955 957 977 2588# 

947 4632# 

491# 598 946 

408# 3294 3403 

2119 2121# 

2114# 2122 2123 

492# 599 

493# 600 

494# 601 

495# 602 

414# 3661 3765 

299# 

897 908# 

1705# 1713 1726 2242 2248 

382# 800 1013 3829 

4149 4160# 

496# 603 

2323 2329# 

412# 3860 

3706 3707 3711# 

2214 2216 2218# 

3835 3841# 

3825 3832# 

3547 3553# 

2761# 2765 

2759 2763# 

4490 4491 4621# 

2179 2242# 

2272 2274# 

2276 2278# 
2279 2281# 
2282 2284# 
2285 2287# 

2277 2280 2283 2286 2290# 
258# 

219# 1802 1880 2291 2669 2697 2897 3649 4462 

1709 1711# 

2641 2669# 

2899 2901# 2906 2917 

231# 447 448 449 451 453 455 456 457 458 464 465 466 467 471 472 473 478 479 480 
482 483 484 485 486 487 489 492 493 494 495 496 499 500 503 516 517 518 519 520 521 
524 527 528 538 539 540 

497# 604 3919 3931 

498# 605 3845 

228# 606 

499# 607 

259# 

260# 

3055# 3058 3059 

2054 2088# 
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OUTOKE L CSEG 

PI N DSEG 

P3 N DSEG 

PAINTER L CSEG 

PARAMl N REG 



#ARAM2 N REG 

PARAM3 N REG 

PARAM4 N REG 

PARAM5 N REG 

PARAM6 N REG 

PARTIT_HI_HIGH. . . L DSEG 

PARTIT HI LOW ... L DSEG 

PARTIT~LO~HIGH. . . L DSEG 

PARTIT_LO_LOW . . . L DSEG 

PARTITION_E . . . . L CSEG 

PC_CHA L CSEG 

PC_CMD L CSEG 

PC_TOKE N 

PCNTHI L DSEG 

^^^CNTLO L DSEG 

^^KMBRK L CSEG 

^^Plus_toke N 

^^NTHGH L DSEG 

PNTLOW L DSEG 

POINTO N REG 



POINTl. . . 

POP TOKE. . 

POUTTD_TOKE. 

POWER_ON. . 

PRE_SET_BAUD 

PRE_UNBREAK 
,RINT_STRING 
INT_STRING_1 
INT_STRING_E 

PROG_MSG. . . 

PROGRAM BREAK 



N REG 

N 

N 

L 

L 

L 

N 

L 



CSEG 
CSEG 
CSEG 

CSEG 



L CSEG 



CSEG 



ECBCH 
0090H 
OOBOH 
E80AH 
R2 
1130 
1763 
2099 
2342 
2841 
3180 
3704 
3868 
4309 
4536 
R3 
2484 
3707 
4481 
R4 
R5 
R6 
R7 

0059H 
005AH 
0057H 
0058H 
E7DBH 
ED70H 
ED5FH 
OOAOH 
0061H 
0062H 
F160H 
0005H 
0044H 

2926 
0045H 
2704 
3098 
RO 
2171 
2653 
3280 
Rl 

002DH 
0006H 
E274H 
F21AH 
EEE3H 
EOIEH 
EA08H 
EAllH 
F302H 
OOOBH 



2991 

REDEF 

REDEF 

2019# 

283# 

1133 

1767 

2102 

2380 

2930 

3185 

3706 

3872 

4311 

4576 

284# 

2551 

3728 

4491 

285# 

286# 

287# 

288# 

270# 

271# 

268# 

269# 

1886 

3143 

949 3 

229# 

427# 

428# 

3845 

222# 

249# 

2932 

250# 

2744 

3102 

281# 

2172 

2654 

3283 

282# 

500# 

221# 

322 3 

3974# 

3315 

303# 

2437# 

2436 

4146 

388# 



2993 2 

INED 

INED 

2067 
808 81 
1141 1 
1843 1 



2109 
2431 
2939 
3188 
3712 
3877 
4344 
4578 
861 10 
2744 2 
3773 3 
4494 4 

1754 1 

1755 1 



996# 

3244 3245 
3247 3248 
2087 

1 860 892 
275 1433 
845 1930 
176 2182 
441 2491 
983 2997 
335 3338 
714 3717 
881 3924 
348 4351 
581 4614 
18 1082 1 
931 2984 
778 3864 
530 4579 
768 1991 
760 2933 



3417 3419 
3420 3423 

912 1007 

1464 1522 

1935 1988 

2187 2193 

2519 2548 

3004 3006 

3340 3349 

3721 3724 

3927 3931 

4411 4416 



1009 1011 

1576 1580 

1990 1994 

2195 2199 

2635 2662 

3013 3015 

3388 3390 

3731 3734 

3933 4032 

4418 4420 



1013 
1590 
1998 
2200 
2664 
3021 
3393 
3738 
4084 
4454 



1015 
1639 
2022 
2204 
2701 
3027 
3397 
3745 
4089 
4459 



1017 
1667 
2056 
2206 
2741 
3043 
3400 
3758 
4093 
4477 



1081 
1669 
2069 
2209 
2745 
3059 
3520 
3760 
4136 
4480 



1084 
1697 
2073 
2260 
2747 
3111 
3549 
3772 
4187 
4490 



1087 1121 1128 

1705 1716 1762 

2074 2083 2095 

2264 2267 2316 

2751 2763 2826 

3116 3146 3151 

3666 3668 3670 

3777 3863 3866 

4216 4221 4294 

4493 4529 4534 



088 1122 1131 1142 1759 1987 2250 2256 2269 2432 2466 2470 2475 
3002 3022 3029 3044 3058 3145 3152 3179 3334 3517 3550 3705 
3878 3882 4035 4140 4308 4312 4345 4349 4412 4421 4455 4478 



1996 2485 2494 2932 2959 
2960 2976 



2975 



2025 2064 

1882 1889 
420 1881 
1884 1895 

1883 1892 
1902# 
3149# 
141# 

608 948 
1252 1253 
1249 1250 
3854# 
2337 

1235 1243 
2947 2956 
1232 1233 
2753 2811 
3157 3162 
1933 1934 
2175 2183 
2656 2657 
3285 3286 
2019 2021 
609 
2338 
41 342 34 

4006 
3360 3362 

2443 
2444# 
4154# 
3851 3856 



2065 
1894 
1888 1 
2595 
2594 



2809 
2808 



2086 

2707 2756 2817 2849 3037 4357 

891 2705 2754 2816 2847 3034 4354 

2833 3039 3046 4358 4373 4381 4389 

2831 3035 3049 4355 4375 4382 4385 4387 



2814 2821 2823 4452 4466 4480 4523 4541 
2812 2818 2820 4453 4468 4481 4524 4543 



1251 
2959 
1239 
2816 
3167 
1937 
2184 
2658 
3963 
2024 



3 344 

# 



1252 1572 1596 2595 2662 2706 2745 2755 2813 2817 2834 2848 

2968 2991 3004 3107 3173 3752 4259 4309 4381 4467 4493 

1240 1248 1249 1573 1600 1606 1614 1625 1633 1641 2594 2664 

2832 2846 2925 2933 2942 2955 2960 2963 2993 3000 3090 3094 

3177 3187 3755 4261 4308 4382 4469 4494 

1938 2062 2077 2078 2090 2091 2112 2117 2118 2130 2131 2168 

2185 2188 2376 2391 2394 2642 2644 2646 2648 2650 2651 2652 

2659 2660 2661 2666 2908 2909 2910 2911 2912 2913 2914 2915 

3965 3969 3982 4008 



345 789# 
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PROGRAM_CMD . . . . L CSEG 

PROGRAM_TOKE. . . . N 

PSW N DSEG 

PSW_CMD L CSEG 

PSW_TOKE N 

PUSH_TOKE N 

PXO N BSEG 

RO_TOKE N 

R1_T0KE N 

R2_T0KE N 

R3_T0KE N 

R4_T0KE N 

R5_T0KE N 

R6_T0KE N 

R7_T0KE N 

RAMIO N 

RAMOFF N 

REIT L CSEG 

RBIT_TOKE N 

RBOUT N 

RBS_TOKE N 

RBYTE L CSEG 

RBYTE_TOKE N 

READ_PC L CSEG 

REG N 

REPAINT L CSEG 

REPAINT_1 L CSEG 

REPAINT_2 L CSEG 

RESET CMD N 

RESET~TOKE N 

RET_TOKE. ..... N 

RETI_TOKE ..... N 

RHTROT L CSEG 

RL TOKE N 

RLT . L CSEG 

RLC_TOKE N 

RR_TOKE N 

RRC_TOKE N 

RSTMOD L CSEG 

RUBOUT L CSEG 

RUN_USER L CSEG 

RUN_USER_RETURN . . L CSEG 

S_S_1 L CSEG 

S S 2 L CSEG 

S~S_3 L CSEG 

SAVE_AND_DISPLAY. . N 

SAVE_CMD L CSEG 

SAVE_SEL N 

SAVE TOKE N 

SCONT N DSEG 

SELECT L DSEG 

SELECT_CON N 

SEND BINARY . . . . L CSEG 



F56CH 951 4629# 

00D5H 501# 610 950 3842 

OODOH PREDEFINED 835 3094 3250 3251 3277 3424 3426 

ED30H 953 3093# 

0099H 502# 611 952 

002FH 503# 612 

00B8H PREDEFINED 3477 

0090H 504# 613 

0091H 505# 614 

0092H 506# 615 

0093H 507# 616 

0094H 508# 617 

0095H 509# 618 

0096H 510# 619 

0097H 511# 620 

B800H 393# 3996 4002 

BOOOH 391# 799 805 817 1369 1400 1594 3222 3287 3351 3363 3395 3507 3516 3623 3635 3656 

3663 3719 3726 3736 3740 3763 3766 3828 3837 3850 3855 3859 3870 3975 3986 4030 4062 

4075 4086 

E6CFH 1605 1613# 

0084H 512# 621 954 1613 2655 2771 

007FH 375# 2095 

OOOOH 513# 622 

E6A0H 1586 1594# 

0081H 514# 623 956 1599 2768 3108 3172 

EF9DH 3144 3329 3505# 3703 3880 4399 

0040H 230# 447 448 449 451 

E833H 2065 2067# 

E835H 2066 2068# 

E80CH 2020# 2025 

0004H 378# 1007 

OOOEH 515# 624 2920 2939 3923 3933 

003AH 516# 625 

0039H 517# 626 

E701H 1637# 1638 

0034H 518# 627 

E947H 2251# 2270 

0033H 519# 628 

0038H 520# 629 

0036H 521# 630 

EC15H 2897 2919# 

E867H 2074 2095# 

F169H 3819 3831 3840 3853 3858# 

F18EH 3358 3876# 

E9E5H 2388# 2395 

E9F6H 2392 2400# 

E9FCH 2400 2404# 

E05CH 311# 

F4B7H 959 4521# 

00F2H 400# 3623 3641 3740 

00E3H 522# 631 958 

0098H PREDEFINED 3253 3254 3427 3429 

0046H 251# 1567 1570 1598 2591 2643 2738 2804 3108 3172 3749 4295 4380 

OOOOH 235# 1015 2056 3400 4576 

F33DH 4188 4190# 
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SEND_BYTE L CSEG 

SET_BAUD L CSEG 

SETB_TOKE N 

SETBRK L CSEG 

SH_1 L CSEG 

SH 2 L CSEG 

SH_3 L CSEG 

SH_4 L CSEG 

SH_5 L CSEG 

SH_6 L CSEG 

SH_7 L CSEG 

SIGN_ON L CSEG 

SIGN_ON_MSG . . . . L CSEG 
SINGLE_BREAK. . . . N 

fc^SINGLE_STEP_MSG . . L CSEG 

^INGLESTEP N 

rJMP_TOKE ..... N 

■"SP N DSEG 

SP_CMD L CSEG 

SP_TOKE N 

SPACCO L CSEG 

SPEFUN L CSEG 

SPFILL L CSEG 

SPWAIT L CSEG 

SSRET L CSEG 

ST_1 L CSEG 

STACK N 

START L CSEG 

START_16_TIMER. . . N 
START_COMPARE . . . L CSEG 

STATE_ERR L CSEG 

5TEP_CMD L CSEG 

|tEP_ST0P ..... L CSEG 
rTEP_TOKE N 

"STEP51 L CSEG 

STEP51_EXIT . . . . L CSEG 
STEP51_RETURN . . . L CSEG 

STORE N 

STORE_HEX LCSEG 

STORED_CHECK_SUM. . L CSEG 

STPDLY L CSEG 

STPEOL L CSEG 

STPLOP L CSEG 

STPLOP REACH. . . . L CSEG 

STRFIL L CSEG 

STRGBF L DSEG 

STRGCT. ...... L DSEG 

STRING_SPACE. . . . L CSEG 

STRTST L CSEG 

•TRTSTl L CSEG 
UBB_TOKE N 
WAP_POINTERS . . . L CSEG 

SWAP_TOKE N 

SYM TBL SRCH. . . . L CSEG 



F333H 


4183# 4372 4374 4376 4378 4384 4394 4398 4401 4403 44i 


4550 




F229H 


816 3344 3985# 


0029H 


523# 632 


ECF2H 


2902 3033# 


F3D8H 


4362 4364# 


F3DFH 


4366 4368# 


F3F0H 


4379# 4390 


F408H 


4388 4390# 


F411H 


4360 4396# 


F3C1H 


4343 4351# 


F440H 


4415 4420# 


E2CCH 


859# 3354 


E36BH 


860 861 892 980# 


OOOIH 


386# 3670 


F31BH 


4148 4158# 


OOFEH 


413# 3674 


0014H 


524# 633 


0081H 


PREDEFINED 793 884 3098 3256 3257 3293 3321 3430 3432 


ED36H 


961 3097# 


009AH 


525# 634 960 


E5E6H 


1086 1135 1275# 2101 2743 2996 2999 3716 3723 3733 37 


E60EH 


1616 1621# 


E8CCH 


2170# 2173 


E8F5H 


2190# 2194 


F106H 


3765 3790# 


F293H 


4071 4073# 


0007H 


377# 884 3293 3321 


E2D6H 


884# 889 894 1145 1309 3791 3885 


OOCOH 


396# 4003 


E756H 


1754 1755 1757# 


F252H 


3923 3973 4010# 4067 4122 


EFDCH 


963 3621# 


FOFBH 


3781 3784# 


OOCiH 


526# 635 962 


F02FH 


3662# 3675 


FODIH 


3743 3762# 


F052H 


3361 3701# 


E04DH 


306# 


F3ADH 


4342# 4395 4551 4616 


E049H 


352# 


FODEH 


3769# 3775 


F048H 


3627 3645 3673# 


F02DH 


3660# 3783 


F0F9H 


3782# 3786 3788 


E8E2H 


2178 2180# 2189 


003CH 


243# 2168 2175 2376 


0055H 


266# 2377 2395 


E9CDH 


2196 2205 2375# 


E900H 


2181 2191 2195# 


E902H 


2196# 2200 


OOIEH 


527# 636 


E5D7H 


1247# 2824 2828 2839 2843 


002EH 


528# 637 


E999H 


2318# 2332 



3736 
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NAME 



TYPE 



VALUE AND REFERENCES 



SYMBOL L CSEG E994H 

SYMBOL_TBL L CSEG E9AEH 

SYMEND L CSEG E9BFH 

T LAB L CSEG EABAH 

TABKEY L CSEG E889H 

TCON N DSEG 0088H 

TEMP N REG R5 

TEMP_LOW L DSEG 0047H 

TEMPI L DSEG 0056H 

218 

THO N DSEG 008CH 

THl N DSEG 008DH 

TILL_TOKE N OOOCH 

TIME N E012H 

TIMEl L CSEG EA4EH 

TIMER_HIGH N 0005H 

TIMER_PRESET. . . . L CSEG F25CH 

TLO N DSEG 008AH 

TLl N DSEG 008BH 

TM0_CMD L CSEG ED86H 

TMO TOKE N 00A2H 

TM1_CMD L CSEG ED8FH 

TM1_T0KE N 00A3H 

TMOD N DSEG 0089H 

TO_TOKE N OOODH 

TOK WRITE L CSEG EA34H 

TOKERR L CSEG E90DH 

TOKLOP L CSEG EA2EH 

TOKSAV L DSEG 005BH 

TOKSIZ N 0004H 

TOKSTR L DSEG 0048H 

3626 

TOKTBL . L CSEG E071H 

TOP CMD ...... L CSEG F278H 

TOP~DISPLAY . . . . L CSEG F29AH 

TOP LIST L CSEG F2B0H 

TOP~LIST 1. .... L CSEG F2B5H 

T0P~LIST~2 L CSEG F29EH 

TOP_PORT N 0083H 

TOP_STORE N 00F9H 

TOP_TOKE N 00D6H 

TRANSFER_CMD. . . . L CSEG F567H 

TRANSFER TOKE . . . N OOBAH 

TYPE L DSEG 0065H 

UCI L CSEG E619H 

UCSTS L CSEG E613H 

UNBREAK L CSEG EEE9H 

UNBRK_LOOP L CSEG EF16H 

UP MOVE L CSEG EB86H 

UP^ N OOFDH 

UPI C 1 L CSEG E62CH 

UPI CMD L CSEG E625H 

4417 

UPI_CONTROL . . . . N AOOIH 

UPI DATA N AOOOH 



2243 2316# 

2317 2333# 

2328 2342# 

2655 2657# 

2107 2109# 
PREDEFINED 3234 3235 3237 3457 3459 

291# 3048 3052 4219 4223 4359 4361 

252# 2698 2700 3158 3163 3168 3176 3180 

267# 1136 1140 1153 1625 1626 1627 1628 

5 2188 2390 2392 



3187 
1633 



1634 1635 1638 1641 1642 1643 1645 



3632 3642 3742 3747 



PREDEFINED 3162 3261 3262 3442 3444 
PREDEFINED 3167 3264 3265 3445 3447 

529# 638 639 3833 

300# 

2555# 2561 

394# 3996 

3990 4020# 
PREDEFINED 3163 3267 3268 3448 3450 
PREDEFINED 3168 3270 3271 3451 3453 

965 3161# 

530# 640 964 

967 3166# 

531# 641 966 
PREDEFINED 3273 3274 3454 3456 

532# 642 1886 2997 

2488 2490# 

2201# 2207 

2486# 2494 

421# 1839 1843 2590 2887 2890 2£ 

233# 243 2169 2174 2377 

253# 897 1839 1878 2212 2218 2291 2292 2316 2323 2327 2344 2347 2588 2590 2887 2903 

3632 3647 3824 4461 

547# 2200 2210 2469 

969 4061# 

4063 4079# 

4088 4092# 

4091 4095# 

4081 4083# 

380# 808 3338 3393 

407# 3395 4062 4075 4086 

533# 643 968 

971 4626# 

534# 644 970 

431# 4263 

333 1398# 1399 

334 1369# 1398 
3388# 3672 3874 
3407# 3411 
2824# 2837 

411# 3287 3433 3507 3516 
1429# 1432 

809 1008 1010 1016 1129 1425# 2057 2084 333S 
4460 4535 4577 4582 4615 
389# 1336 1428 1459 
390# 797 1042 1493 4314 4475 4488 



3350 3389 3394 3401 3667 3867 3925 
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TYPE 



VALUE AND REFERENCES 



UPI DATA IMAGE. . . N OOFIH 

UPI~IN. 7 L CSEG E64CH 

UPI_INA L CSEG E5F3H 

UPI INB L CSEG E5F8H 

URIDINE L CSEG E601H 

UPI_INR L CSEG E5FCH 

UPI 1 L CSEG E63FH 

UPI~OUT L CSEG E638H 

UPLOAD_CMD L CSEG F50FH 

UPLOAD_TOKE . . . . N OOEIH 

USART_MODE N OOOIH 

USER_MSG L CSEG F2E8H 

UTILIT_ERROR. . . . L CSEG E778H 

VALHGH L DSEG 0049H 

VALLOW L DSEG 

IVERIFY_CMD L CSEG 

^VERIFY TOKE . . . . N OOBBH 

VPC_HIirH L DSEG 005FH 

VPC_LOW L DSEG 005EH 

WAIT_FOR_USER . . . N E062H 

WCHANGE L CSEG EDB3H 

W0RKING_SPACE . . . L DSEG 0040H 

WRITE PC L CSEG EFA8H 

X WRT~ L CSEG E69CH 

XBYTE L CSEG E691H 

XBYTE_T0KE N 0086H 

XCH_TOKE N OOIDH 

XCHD TOKE N OOICH 

XEQT~MSG L CSEG F1A4H 

XREAD L CSEG E697H 

XRL_TOKE N 0020H 

UWRITE L CSEG E69BH 

IZTEST L CSEG E726H 



399# 805 1369 1400 3363 

810 1298 1489# 1490 3313 3342 3399 3785 4214 4251 

1300 1301# 

1303 1304# 

1308 1310# 

1302 1305 1307# 

1460# 1462 

812 1012 1014 1276 1457# 2023 2070 3341 3391 3392 3398 3669 3671 3869 3873 

973 4608# 

535# 645 972 

385# 3388 3924 4416 4581 

4144 4150# 

1802 1807# 1813 1851 1880 1898 

254# 1882 1884 1889 2245 2262 2265 



2809 3151 3185 3549 3636 3654 3967 3976 4065 



4452 4523 
004AH 255# 

3188 
F562H 



1881 1883 1888 2244 
3550 3639 3651 3657 3968 
975 4623# 
536# 646 974 

425# 2956 2975 2983 2989 2990 
424# 2955 2976 2984 2986 2987 
313# 

3174 3183# 
244# 

3153 3336 3514# 3551 4310 
1591# 1646 
1574 1586# 

537# 647 976 1586 2649 2773 
538# 648 
539# 649 
3863 3864 3887# 
1588# 1604 1610 
540# 650 

1587 1590# 1603 1609 
1698 1700# 



2251 2254 2258 2259 2635 2698 2700 2701 2808 3116 3152 
3979 4070 4453 4524 



2992 



ASSEMBLY COMPLETE, NO ERRORS FOUND 
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ISIS-II MCS-51 MACRO ASSEMBLER X040 
OBJECT MODULE PLACED IN : F3 : SDKADM. HEX 

ASSEMBLER INVOKED BY: :F1:ASM51 : Fl : SDKADM. SRC PR INT (: F2 : SDKADM. LST ) 
: ,:F3: ) EP DB SB 



0BJECT(:F3:SDKADM.HEX). DATE (8 , 12 ,81 ) WORKF ILES ( : F3 



LOC OBJ 



F581 
F581 

F581 02F977 
F584 02FCFD 



LINE 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 

10.5 
11 

11.5 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 

40 +1 
145 +1 



SOURCE 

$NOMACRO 

$ XR E F 

$TITLE( 'SDK-51 ASSEMBLER/DISASSEMBLER INTEL PROPRIETARY VERS. #1.03') 



SDK-51 MONITOR INTEL PROPRIETARY 

THIS SOFTWARE IS COPYRIGHTED UNDER INTIL PART NUMBER 162787-004 



VERSION 1 


03 




8-12-81 


NN N 


00000 


TTTTTTT 


EEEEE ! 


N N N 










E ! 


N N N 










EEEE ! 


N NN 










E ! 


N NN 










E 


N N 


00000 




EEEEE ! 



.*****•*****••*•*•*****•*****••••**••*•*********••*•*•***•••*••*** 



COPYRIGHT (C) 1981 INTEL CORPORATION.; 
ALL RIGHTS RESERVED. 

NO PART OF THIS PROGRAM OR PUBLICATION MAY BE REPRODUCED, 
TRANSMITTED, TRANSCRIBED, STORED IN A RETRIEVAL SYSTEM, OR 
TRANSLATED INTO ANY LANGUAGE OR COMPUTER LANGUAGE, IN ANY 
FORM OR BY ANY MEANS, ELECTRONIC, MECHANICAL, MAGNETIC, 
OPTICAL, CHEMICAL, MANUAL OR OTHERWISE, WITHOUT THE PRIOR 
WRITTEN PERMISSION OF INTEL CORPORATION, 3065 BOWERS AVENUE, 
SANTA CLARA, CALIFORNIA 95051. 



ASMBASE EQU 0F581H 

ORG ASMBASE 

LJMP ASSEMBLY_CMD 
LJMP DISASSEMBLY_CMD 

;INCLUDE FOR COMMON. INC 

$NOLIST 

$EJECT 
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LOG OBJ 



LINE 

146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 

185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 



SOURCE 
•**•*•••**•**•**••*•*•*•***•***•****•**•**•************************ 

TABLE OF CONTENTS: 

This listing contains a source file and 3 include files. 
Each include file contains a number of subroutines. Each 
subroutine listed has its own 'header' block and begins on 
a new page. 
The files are as follows: 

SDKADM.SRC (SOURCE FILE) 



LAG 



MNEMONIC_TAB 
TEMPORARY VARIABLES 
FLAG ADDRESSES 
CONSTANTS 
INSTRUCTION_CODE 

ONE BYTE_TAIL 

MNEMONIC_FIRST_OPERAND 

MNEMONIC_TWO_OPERANDS 

MOVC_OPERANDS 

THREE_OPERANDS 

JUMP_OPERAND 

JUMP_TWO_OPERANDS 

JUMP_ABSOLUTE_OPERAND 

JUMP_LONG_OPERAND 

MNEMONIC_INSTRUCTION_TAIL 

MNEMONIC_INSTR_LIST_TAIL 

ASSEMBLY_CMD 

ASM. INC (INCLUDE FILE) 

START_DIVIDE 

CALCULATE_INSTRUCTION_VALUE 
UPDATE OUR CODE 
GET FIirST OPERAND 

CHE"CK AND~SET EXP_FLAG/SET_E XP_16_FLAG/SET_EXP_FLAG/CHECK_EXP_FLAG 
" SET_POUND_FLAG/CHECK_AND_SET_SECOND_EXP_FLAG/SET_SLASH_EXP_ 

SET_REL_FLAG/GET_SECOND_EXP 

ASMA.INC (INCLUDE FILE) 

CHECK_AND_CHANGE_ASM_PC 
CHANGE_TO_INSTRUCTION_OP 

SDKDSM.INC (INCLUDE FILE) 

DISASSEMBLY_CMD 

GET_HASH_VALUE 

OPERAND_BYTE_CHECK 

DISPLAY_OPERAND 

DISPLAY_COMMA 

DISASSEMBLE 



MCS-51 MACRO ASSEMBLER 'SDK-51 ASSEMBLER/DISASSEMBLER INTEL PROPRIETARY VERS. #1.03 
LOG OBJ LINE SOURCE 
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200 
201 
202 +1 $EJECT 



.•*******•*•*••*•*********•*****•********•**•*••••***••*•* 
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LOG OBJ 



LINE 

203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
2 57 



SOURCE 

* THIS MODULE CONTAINS THE TABLES USED TO IMPLEMENT ASSEMBLY AND 

* DISASSEMBLY: 



INSTRUCTION$CODE - 
Each entry codes 
second operand 



one per opcode, 
f i rst operand and 



A table of 256 address entries 
up for its opcode the mnemonic 
Specifically, the entry equals 
M + F*MNEMONIC$FACTOR + S*MNEMON I C$FACTOR*OPER AND$FACTOR 
WHERE 



* Mis the ordinal of the mnemonic in MNEMONIC$TAB , * 

* F is if there are no operands; otherwise F is one more than the * 

* ordinal of the first operand in the 0PERAND$TAB, and * 

* S is if there is no second operand; otherwise S is one more than * 

* the ordinal of the second operand in the OPERAND$TAB. * 

* The entry OFFFFH in this table indicates the opcode is undefined. * 

* * 

* MNEMONIC$TAB - A symbol table listing all the mnemonics (operands * 

* not included). The value associated with each is the instruction * 

* format, a number between 7 and 15 corresponding to the instruction * 

* tail in the grammar appropriate to the mnemonic. The instruction * 

* format is also needed to disassemble the instruction. The formats * 

* are: * 

* 7 - No operands (e.g. RETI) * 

* 8 - One operand (e.g. CLR A) * 

* 9 - Two operands (e.g. ADD A,RO) * 

* 10 - MOVC - Two operands (e.g. MOVC A,@A + DPTR) * 

* 11 - CJNE - Three operands (e.g. CJNE @R0 ,#56H ,42H ) * 

* 12 - JUMP - Relative - One operand (e.g. JC 44H) * 

* 13 - JUMP - Relative - Two operands (e.g. JNB 5H,45H) * 

* 14 - Absolute CALL and JUMP (e.g. ACALL 341H) * 

* 15 - Long CALL and JUMP (e.g. LJMP 4536H) * 

* * 

* The first mnemonics in this table are long call and jump(15), next * 

* are the absolute call and jump i nstructi ons ( 14) , then jump-relative * 

* one-operand i nstructi ons (13 ) , the CJNE three operand instructions * 

* 11), the MOVC instructions(lO) , the two operand i nstructi ons (9 ) , * 

* the jump-relative one-operand i nstructi ons ( 12 ) , the one operand * 

* i nstructi ons (8) , and the no operand i nstructi ons ( 7 ) . The jump- * 

* relative one-operand instructions are in between the two operand * 

* instructions and the one operand instructions because in the action * 

* SELECT$INSTRUCTION$TAIL it has to be determined if the mnemonic is * 

* JNB, JB, JBC, SETB, CLR, or CPL since these six instructions, if they* 

* have an expression, have a bit expression so BIT$EXP must be set. * 

* * 

* OPERAND$TAB - A symbol table listing the operands. No value is * 

* associated with them. Only the ordinal in the table is important. * 

* * 



DECLARE 
UNDEF LIT 



'OFFFFH' 
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m 



m 



LOG OBJ 



FFFF 



F587 OF 
F588 OF 
F589 OE 
F58A OE 
F58B OC 
F58C OC 
F58D OC 
|F58E OC 
F58F OC 
F590 OB 
F591 OA 
F592 09 
F593 09 
F594 09 
F595 09 
F596 09 
F597 09 
F598 09 
F599 09 
F59A 09 
F59B 09 
F59C OD 
F59D 00 
F59E OD 

59F OD 
'F5A0 08 
F5A1 08 
F5A2 08 
F5A3 08 
F5A4 08 
F5A5 08 
F5A6 08 
F5A7 08 
F5A8 08 
F5A9 08 
F5AA 08 
F5AB 08 
F5AC 08 
F5AD 08 
F5AE 08 
F5AF 08 
F5B0 07 

5B1 07 
'F5B2 07 



INE 5 


OURCE 






258 


DECLARE 






259 


MNEMONIC$TAB$HEAD TABLE PUBLIC DATA( 


260 


.MNEMONIC$TAB+OEDH 


, 


261 


OFFFFH 


- OEDH), 




262 








263 MNE UNDEF 


EQU OFFFFH 


264 








265 MNEMONIC TAB: 


; 


(*) BYTE PUBLIC DATA( 


266 








267 


DB 


OFH ; 


LCALL 


268 


DB 


OFH ; 


LJMP 


269 


DB 


OEH ; 


ACALL 


270 


DB 


OEH ; 


AJMP 


271 


DB 


OCH ; 


SJMP 


272 


DB 


OCH ; 


JNZ 


273 


DB 


OCH ; 


JZ 


274 


DB 


OCH ; 


JNC 


275 


DB 


OCH ; 


JC 


276 


DB 


OBH ; 


CJNE 


277 


DB 


OAH ; 


MOVC 


278 


DB 


09H ; 


MOVX 


279 


DB 


09H ; 


XCHD 


280 


DB 


09H ; 


XCH 


281 


DB 


09H 


SUBB 


282 . 


DB 


09H 


MOV 


283 


DB 


09H 


XRL 


284 


DB 


09H 


ANL 


285 


DB 


09H 


ORL 


286 


DB 


09H 


ADDC 


287 


DB 


09H 


ADD 


288 


DB 


ODH 


DJNZ 


289 


DB 


ODH 


JNB 


290 


DB 


ODH 


JB 


291 


DB 


ODH 


JBC 


292 


DB 


08H 


SETB 


293 


DB 


OBH 


CLR 


294 


DB 


OBH 


CPL 


295 


DB 


OBH 


DA 


296 


DB 


OBH 


, POP 


297 


DB 


OBH 


, SWAP 


298 


DB 


OBH 


. PUSH 


299 


DB 


OBH 


, MUL 


300 


DB 


OBH 


, DIV 


301 


DB 


OBH 


, JMP({aA+DPTR) 


302 


DB 


OBH 


, RLC 


303 


DB 


OBH 


; RL 


304 


DB 


08H 


, DEC 


305 


DB 


OBH 


; RRC 


306 


DB 


OBH 


; INC 


307 


DB 


OBH 


; RR 


308 


DB 


07H 


; RETI 


309 


DB 


07H 


; RET 


310 


DB 


07H 


; NOP 


311 








312 


; DECLARE ; 


ORDINALS 


OF MNEMONICS IN MNEMO^ 
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0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 
OOOD 
OOOE 
OOOF 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
OOIA 
OOIB 
OOIC 
OOID 
OOIE 
OOIF 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
002A 
002B 



002C 
0058 
0084 
OOBO 
OODC 
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313 




314 




315 


MNE LCALL 


316 


MNE LJMP 


317 


MNE ACALL 


318 


MNE AJMP 


319 


MNE SJMP 


320 


MNE JNZ 


321 


MNE JZ 


322 


MNE JNC 


323 


MNE JC 


324 


MNE CJNE 


325 


MNE MOVC 


326 


MNE MOVX 


327 


MNE XCHD 


328 


MNE XCH 


329 


MNE SUBB 


330 


MNE MOV 


331 


MNE XRL 


332 


MNE ANL 


333 


MNE ORL 


334 


MNE ADDC 


335 


MNE ADD 


336 


MNE DJNZ 


337 


MNE JNB 


338 


MNE JB 


339 


MNE JBC 


340 


MNE SETB 


341 


MNE CLR 


342 


MNE CPL 


343 


MNE DA 


344 


MNE POP 


345 


MNE SWAP 


346 


MNE PUSH 


347 


MNE MUL 


348 


MNE DIV 


349 


MNE JMP 


350 


MNE RLC 


351 


MNE RL 


352 


MNE DEC 


353 


MNE RRC 


354 


MNE INC 


355 


MNE RR 


356 


MNE RETI 


357 


MNE RET 


358 


MNE NOP 


359 


. *•**•••* 


360 


; DECLARE 


361 


; 


362 




363 


A OPl 


364 


ATRO OPl 


365 


ATRl OPl 


366 


RO OPl 


367 


Rl OPl 



EQU 


00 


EQU 


01 


EQU 


02 


EQU 


03 


EQU 


04 


EQU 


05 


EQU 


06 


EQU 


07 


EQU 


08 


EQU 


09 


EQU 


10 


EQU 


11 


EQU 


12 


EQU 


13 


EQU 


14 


EQU 


15 


EQU 


16 


EQU 


17 


EQU 


18 


EQU 


19 


EQU 


20 


EQU 


21 


EQU 


22 


EQU 


23 


EQU 


24 


EQU 


25 


EQU 


26 


EQU 


27 


EQU 


28 


EQU 


29 


EQU 


30 


EQU 


31 


EQU 


32 


EQU 


33 


EQU 


34 


EQU 


35 


EQU 


36 


EQU 


37 


EQU 


38 


EQU 


39 


EQU 


40 


EQU 


41 


EQU 


42 



EQU 43; 

MNEMONIC_FACTOR (I.E. 44) TIMES ORDINAL+1 OF FIRST OPERANDS IN 
OPERAND TAB. 



EQU 


0044 


EQU 


0088 


EQU 


0132 


EQU 


0176 


EQU 


0220 
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0108 
0134 
0160 
018C 
01B8 
01E4 
0210 
023C 
0268 
0294 
02C0 
02EC 
0370 
039C 
03C8 
03F4 



0420 
0840 
0C60 
1080 
14A0 
18C0 
ICEO 
2100 
2520 
2940 
2D60 
39C0 
3DE0 
4200 
4620 
4A40 
4E60 
5280 
5AC0 
5EE0 
6300 



368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 



R2_0P1 

R3_0P1 

R4_0P1 

R5_0P1 

R6_0P1 

R7_0P1 

AB OPl 

DPTR_0P1 

C_OPl 

ATDPTR_0P1 

BYTE_EXP8_0P1 

BIT_EXP8_0P1 

EXP16_0P1 

EXP11_0P1 

REL8_0P1 

ATA PLUS DPTR 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
OPl 



0264 

0308 

0352 

0396 

0440 

0484 

0528 

0572 

0616 

660 

0704 

0748 

0880 

0924 

0968 

EQU 



1012; 



;DECLARE;OPERAND_FACTOR*MNEMONIC_FACTOR(I. 
;SECONDOPERANDSINOPERAND TAB 



E.1056)TIMES0RDINALS0F 



+ 1 



A_0P2 

ATR0_0P2 

ATR1_0P2 

R0_0P2 

R1_0P2 

R2_0P2 

R3_0P2 

R4_0P2 

R5_0P2 

R6_0P2 

R7_0P2 

C_0P2 

ATDPTR_0P2 

BYTE_EXP8_0P2 

BIT_EXP8_0P2 

P0UND_EXP_0P2 

SLASH_EXP_0P2 

EXP16 0P2 

REL8_UP2 

ATA_PLUS_DPTR 

ATA_PLUS_PC_0 

$EJECT 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

_0P2 

P2 EQU 



01056 

02112 

03168 

04224 

05280 

06336 

07392 

08448 

09504 

10560 

11616 

14784 

15840 

16896 

17952 

19008 

20064 

21120 

23232 

EQU 

25344; 



24288 
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005B 
005B 
005C 
005D 
005E 
005F 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
006A 
006B 
006C 
006D 
006E 
006F 
0070 
0071 
0072 



0002 
0002 
0003 
0004 


0016 
OOIB 
002C 
0018 
00A5 


F5B3 002B 
F5B5 039F 
F5B7 0371 
F5B9 0054 


F5BB 0053 



409 


;********** TEMPORARY VARIABLES 


• •**i 


410 


.***** QATA ADDRESSES ***** 




411 








412 


DSEG 






413 


ORG (PARTIT 


HI LOW+ 


1) 


414 


INSTRUCTION VALUE: 


DS 




415 


ORDINAL: 


DS 




416 


OLD ASM PC HIGH: 


DS 




417 


OLD ASM PC LOW: 


DS 




418 


INSTRUCTION: 


DS 




419 


REL OFFSET HIGH: 


DS 




420 


REL OFFSET LOW: 


DS 




421 


TEMP SEC: 


DS 




422 


FIRST OPER ORDINAL: 


DS 




423 


SECOND OPER ORDINAL: 


DS 




424 


THIRD OPER ORDINAL: 


DS 




425 


CURRENT OPERAND: 


DS 




426 


NO OF OPERANDS PRINTED: 


DS 




427 


EXPRESSIONS PRINTED: 


DS 




428 


MEMORY TRACE ADDR HIGH: 


DS 




429 


MEMORY TRACE ADDR LOW: 


DS 




430 


NUMBER OF OPERANDS: 


DS 




431 


OPERAND CHECK: 


DS 




432 


MNEMONIC ORDINAL: 


DS 




433 


DIVIDEND HIGH: DS 






434 


DIVIDEND LOW: DS 






435 


DIVISOR: DS 






436 


QUOTIENT HIGH: DS 






437 


QUOTIENT_LOW: DS 






438 








439 








440 


.***** pLAG ADDRESSES ***** 




441 








442 


BSEG 






443 


ORG (LSTFLG 


+ 1) 




444 


BIT EXP: 


DBIT 


1 


445 


FIRST EXP: 


DBIT 


1 


446 


SECOND EXP: 


DBIT 


1 


447 


CSEG 






448 








449 


;***** CONSTANTS ***** 






450 


JUMP END 


EQU 


22 


451 


BIT END 


EQU 


27 


452 


MNEMONIC FACTOR 


EQU 


44 


453 


OPERAND FACTOR 


EQU 


24 


454 


UNDEFINED_OPCODE 


EQU 


0A5H 


455 








456 


INSTRUCTION CODE: 






457 


;00 






458 


DW MNE NOP 






459 


DW MNE AJMP+EXPll 


OPl 


460 


DW MNE~LJMP+EXP16 


^OPl 


461 


DW MNE RR+ 


A_0P1 




462 


;04 






463 


DW MNE INC 


+ A OPl 





;Hash Table 
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5BD 02E7 
5BF 007F 
5C1 OOAB 

5C3 00D7 
5C5 0103 
5C7 012F 
5C9 015B 

5CB 0187 
5CD 01B3 
5CF OlDF 
5D1 020B 

5D3 5DC4 
5D5 039E 
5D7 0370 
5D9 0052 

5DB 0051 
5DD 02E5 
5DF 007D 
5E1 00A9 

5E3 00D5 
5E5 0101 
5E7 012D 
5E9 0159 

5EB 0185 

5ED OlBl 

5EF OIDD 

5F1 0209 

5F3 5DC3 
5F5 039F 
5F7 002A 
5F9 0050 

5FB 4A80 
5FD 4240 
5FF 0880 
601 OCAO 

603 lOCO 

605 14E0 

607 1900 

609 1D20 

60B 2140 

60D 2560 

60F 2980 

611 2DA0 

613 5DC2 



464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 



;08 



;0C 



:10 



:14 



;ic 



;20 



;24 



;28 



;2C 



;30 



DW MNE_INC+BYTE_EXP8_0P1 

DW MNE_INC + ATR0_0P1 

DW MNE_INC+ATR1_0P1 

DW MNE_INC+R0_0P1 

DW MNE_INC+R1_0P1 

DW MNE_INC+R2_0P1 

DW MNE_INC+R3_0P1 

DW MNE INC+R4 OPl 

DW MNE~INC+R5~0P1 

DW MNE_INC+R6_0P1 

DW MNE_INC+R7_0P1 

DW MNE_JBC+BIT_EXP8_0P1+REL8_0P2 

DW MNE_ACALL+EXPll_aPl 

DW MNE_LCALL+EXP16 OPl 

DW MNE_RRC+A_0P1 

DW MNE_DEC+A_0P1 

DW MNE_DEC + BYTE_EXP8_0P1 

DW MNE_DEC+ATR0_0P1 

DW MNE_DEC+ATR1_0P1 

DW MNE_DEC + R0_0P1 

DW MNE_DEC + R1_0P1 

DW MNE_DEC+R2 OPl 

DW MNE_DEC+R3_0P1 

DW MNE_DEC+R4_0P1 

DW MNE_DEC + R5_0P1 

DW MNE_DEC+R6_0P1 

DW MNE_DEC+R7_0P1 

DW MNE_JB + BIT_EXP8_0P1 + REL8_0P2 

DW MNE_AJMP+EXP11_0P1 

DW MNE_RET 

DW MNE_RL+A_0P1 

DW MNE_ADD+A_0P1+P0UND_EXP_0P2 

DW MNE_ADD+A_0P1+BYTE_EXP8_0P2 

DW MNE_ADD + A_0P1+ATR0_0P2 

DW MNE_ADD + A_0P1+ATR1_0P2 

DW MNE_ADD + A_0P1+R0_0P2 

DW MNE_ADD+A_0P1+R1_0P2 

DW MNE_ADD + A_0P1+R2_0P2 

DW MNE_ADD+A_0P1+R3_0P2 

DW MNE_ADD+A_0P1+R4_0P2 

DW MNE_ADD+A_0P1+R5_0P2 

DW MNE_ADD+A_0P1+R6_0P2 

DW MNE_ADD+A_0P1+R7_0P2 

DW MNE JNB+BIT EXP8 0P1+REL8 0P2 
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LOG OBJ 



LINE 



SOURCE 



F615 039E 
F617 0029 
F619 004F 

F61B 4A7F 

F61D 423F 

F61F 087F 

F621 0C9F 

F623 lOBF 
F625 14DF 
F627 18FF 
F629 IDIF 

F62B 213F 

F62D 255F 

F62F 297F 

F631 2D9F 

F633 03D0 
F635 039F 
F637 06F2 
F639 4D12 

F63B 4A7E 

F63D 423E 

F63F 087E 

F641 0C9E 

F643 lOBE 

F645 14DE 

F647 18FE 

F649 IDIE 

F64B 213E 

F64D 255E 

F64F 297E 

F651 2D9E 

F653 03CF 

F655 039E 

F657 06F1 

F659 4D11 

F65B 4A7D 

F65D 423D 

F65F 087D 

F661 0C9D 

F663 lOBD 

F665 HDD 

F667 18FD 

F669 IDID 

F66B 213D 



519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 



:34 



;38 



;3C 



;40 



:44 



;4C 



;50 



;54 



:58 



;5C 



DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 



MNE ACALL+EXP11_0P1 

MNE_RETI 

MNE_RLC+A_0P1 

MNE_ADDC+A_0P1+P0UND_EXP_0P2 
MNE_ADDC+A_0P1+BYTE_EXP8_0P2 
MNE_ADDC+A_0P1+ATR0_0P2 
MNE_ADDC+A_0P1+ATR1_0P2 

MNE_ADDC+A_0P1+R0_0P2 
MNE_ADDC+A_0P1+R1_0P2 
MNE_ADDC+A_0P1+R2_0P2 
MNE_ADDC+A_0P1+R3_0P2 

MNE_ADDC+A_0P1+R4_0P2 
MNE_ADDC+A_0P1+R5_0P2 
MNE_ADDC+A_0P1+R6_0P2 
MNE_ADDC+A_0P1+R7_0P2 

MNE_JC+REL8_0P1 
MNE_AJMP+EXP11_0P1 
MNE_0RL+BYTE_EXP8_0P1+A_0P2 
MNE_0RL+BYTE_EXP8_0P1+P0UND_EXP_0P2 

MNE_0RL+A_0P1+P0UND_EXP_0P2 
MNE_0RL+A_0P1+BYTE_EXP8_0P2 
MNE_0RL+A_0P1+ATR0_0P2 
MNE_0RL+A_0P1+ATR1_0P2 

MNE_0RL+A_0P1+R0_0P2 
MNE_0RL+A_0P1+R1_0P2 
MNE_0RL+A_0P1+R2_0P2 
MNE_0RL+A_0P1+R3_0P2 

MNE_0RL+A_0P1+R4_0P2 
MNE 0RL+A_0P1+R5_0P2 
MNE_0RL+A_0P1+R6_0P2 
MNE_0RL+A_0P1+R7_0P2 

MNE_JNC+REL8_0P1 

MNE_ACALL+EXP11_0P1 

MNE ANL+BYTE_EXP8_0P1+A_0P2 

MNE_ANL+BYTE_EXP8_0P1+P0UND_EXP_0P2 

MNE_ANL+A_0P1+P0UND_EXP_0P2 
MNE_ANL+A_0P1+BYTE_EXP8_0P2 
MNE_ANL+A_0P1+ATR0_0P2 
MNE__ANL + A_0P1+ATR1_0P2 

MNE_ANL+A_0P1+R0_0P2 
MNE_ANL+A_0P1+R1_0P2 
MNE ANL+A_0P1+R2_0P2 
MNE_ANL+A_0P1+R3_0P2 

MNE ANL+A 0P1+R4 0P2 
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LINE 



SOURCE 



m. 



F66D 255D 
F66F 297D 
F671 2D9D 

F673 03CE 

F675 039F 

F677 06F0 

F679 4D10 

F67B 4A7C 
F67D 423C 
F67F 087C 
F681 0C9C 

F683 lOBC 

F685 14DC 

[687 18FC 

689 IDIC 

F68B 213C 
F68D 255C 
F68F 297C 
F691 2D9C 

F693 03CD 

F695 039E 

F697 489A 

F699 0416 

F69B 4A7B 

F69D 4D0F 

F69F 4AA7 

F6A1 4AD3 



A3 4AFF 

6A5 4B2B 

F6A7 4B57 

F6A9 4B83 



F6AB 4BAF 

F6AD 4BDB 

F6AF 4C07 

F6B1 4C33 

F6B3 03CC 

F6B5 039F 

F6B7 4899 

F6B9 6336 



r u 

m 



F6BB 0231 

6BD 44CF 

BF OBOF 

CI 0F2F 



F6C3 134F 



574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 



:60 



;64 



:6£ 



;6C 



:70 



:74 



:78 



;7C 



DW MNE_ANL+A_0P1+R5_0P2 

DW MNE_ANL+A_0P1+R6_0P2 

DW MNE_ANL+A_0P1+R7_0P2 

DW MNE_JZ+REL8_0P1 

DW MNE_AJMP+EXP11_0P1 

DW MNE_XRL+BYTE_EXP8_0P1+A 0P2 

DW MNE_XRL + BYTE_EXP8_0P1 + PTTUND_EXP_0P2 

DW MNE_XRL+A_0P1+P0UND_EXP_0P2 

DW MNE_XRL+A_0P1+BYTE_EXP8_0P2 

DW MNE_XRL+A_0P1+ATR0_0P2 

DW MNE_XRL+A_0P1+ATR1_0P2 

DW MNE_XRL+A_0P1+R0_0P2 

DW MNE_XRL+A_0P1+R1_0P2 

DW MNE_XRL+A_0P1+R2_0P2 

DW MNE_XRL+A_0P1+R3_0P2 

DW MNE_XRL+A_0P1+R4_0P2 

DW MNE_XRL+A_0P1+R5_0P2 

DW MNE_XRL+A_0P1+R6_0P2 

DW MNE_XRL + A_0P1 + R7_0P2 

DW MNE_JNZ+REL8_0P1 

DW MNE_ACALL+EXP11_0P1 

DW MNE_0RL+C_0P1+BIT_EXP8_0P2 

DW MNE_JMP+ATA_PLUS_DPTR_0P1 

DW MNE_M0V+A_0P1+P0UND_EXP_0P2 

DW MNE_M0V+BYTE_EXP8_0P1+P0UND_EXP_0P2 

DW MNE_M0V+ATR0_0P1+P0UND_EXP_0P2 

DW MNE_M0V+ATR1_0P1+P0UND_EXP_0P2 

DW MNE_M0V+R0_0P1+P0UND_EXP_0P2 

DW MNE_M0V+R1_0P1+P0UND EXP 0P2 

DW MNE_M0V+R2_0P1+P0UND_EXP~0P2 

DW MNE_M0V+R3_0P1+P0UND_EXP_0P2 

DW MNE_M0V+R4_0P1+P0UND_EXP_0P2 

DW MNE_M0V+R5_0P1+P0UND_EXP 0P2 

DW MNE_M0V+R6_0P1+P0UND_EXP_0P2 

DW MNE_M0V+R7_0P1+P0UND_EXP_0P2 

DW MNE_SJMP+REL8 OPl 

DW MNE_AJMP+EXP1T_0P1 

DW MNE_ANL+C_0P1+BIT_EXP8_0P2 

DW MNE_M0VC + A_0P1+ATA_PLUS_PC_0P2 

DW MNE_DIV+AB_0P1 

DW MNE_M0V+BYTE_EXP8_0P1+BYTE_EXP8_0P2 

DW MNE_M0V+BYTE_EXP8_0P1+ATR0_0P2 

DW MNE_M0V+BYTE_EXP8_0P1+ATR1_0P2 

DW MNE MOV+BYTE EXP8 OPl+RO 0P2 



MCS-51 MACRO ASSEMBLER 



'SDK-51 ASSEMBLER/DISASSEMBLER INTEL PROPRIETARY VERS. #1.03 



,12,81 



PAGE 



12 



LOC OBJ 



F6C5 
F6C7 
F6C9 


176F 
1B8F 
IFAF 


F6CB 
F6CD 
F6CF 
F6D1 


23CF 
27EF 
2C0F 
302F 


F6D3 
F6D5 
F6D7 
F6D9 


54CB 
039E 
3CBB 
5F16 


F6DB 
F6DD 
F6DF 
F6E1 


4A7A 
423A 
087A 
0C9A 


F6E3 
F6E5 
F6E7 
F6E9 


lOBA 
14DA 
18FA 
IDIA 


F6EB 
F6ED 
F6EF 
F6F1 


213A 
255A 
297A 
2D9A 


F6F3 
F6F5 
F6F7 
F6F9 


50DA 
039F 
4897 
0263 


F6FB 
F6FD 
F6FF 
F701 


0230 
FFFF 
4267 
4293 


F703 
F705 
F707 
F709 


42BF 
42EB 
4317 
4343 


F70B 
F70D 
F70F 
F711 


436F 
439B 
43C7 
43F3 


F713 
F715 
F717 
F719 


50D9 
039E 
0307 
0283 


F71B 


4A75 



LINE 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 



SOURCE 



;8C 



;90 



:94 



;98 



;9C 



;A0 



;A4 



;A8 



;AC 



;B0 



:B4 



DW MNE MOV+BYTE E XP8_0P1+R1_0P2 

DW MNE~M0V+BYTE_EXP8_0P1+R2_0P2 

DW MNE_M0V+BYTE_EXP8_0P1+R3_0P2 

DW MNE_MOV+BYTE_EXP8_OP1+R4_OP2 

DW MNE MOV+BYTE E XP8_0P1+R5_0P2 

DW MNE~M0V+BYTE_EXP8_0P1+R6_0P2 

DW MNE_M0V+BYTE_EXP8_0P1+R7_0P2 

DW MNE_M0V+DPTR_0P1+EXP16_0P2 

DW MNE_ACALL+EXP11_0P1 

DW MNE M0V+BIT_EXP8_0P1+C_0P2 

DW MNE_M0VC+A_0P1+ATA_PLUS_DPTR_0P2 

DW MNE SUBB+A OPl +P0UND_EXP_0P2 

DW MNE~SUBB+A_0P1+BYTE_EXP8_0P2 

DW MNE_SUBB+A_0P1+ATR0_0P2 

DW MNE_SUBB+A_0P1+ATR1_0P2 

DW MNE_SUBB+A_0P1+R0_0P2 

DW MNE SUBB+A_0P1+R1_0P2 

DW MNE_SUBB+A_0P1+R2_0P2 

DW MNE_SUBB+A_0P1+R3_0P2 

DW MNE_SUBB+A_0P1+R4_0P2 

DW MNE_SUBB+A_0P1+R5_0P2 

DW MNE_SUBB + A_0P1+R6_0P2 

DW MNE_SUBB+A_0P1+R7_0P2 

DW MNE_0RL+C_0P1+SLASH_EXP_0P2 

DW MNE AJMP+EXPll OPl 

DW MNE~M0V + C_0P1+"?IT_EXP8_0P2 

DW MNE_INC+DPTR_0P1 

DW MNE_MUL+AB_0P1 

DW MNE UNDEF 

DW MNE~M0V+ATR0_0P1+BYTE_EXP8_0P2 

DW MNE~M0V+ATR1_0P1+BYTE_EXP8_0P2 

DW MNE_M0V+R0_0P1+BYTE_EXP8_0P2 

DW MNE_M0V+R1_0P1+BYTE_EXP8_0P2 

DW MNE M0V+R2_0P1+BYTE_EXP8_0P2 

DW MNE~M0V+R3_0P1+BYTE_EXP8_0P2 

DW MNE_M0V+R4_0P1+BYTE_EXP8_0P2 

DW MNE M0V+R5 0P1+BYTE_EXP8_0P2 

DW MNE~M0V+R6_0P1+BYTE_EXP8_0P2 

DW MNE_M0V+R7_0P1+BYTE_EXP8_0P2 

DW MNE_ANL+C_0P1+SLASH_EXP_0P2 

DW MNE_ACALL+EXP11_0P1 

DW MNE_CPL + BIT_EXP8_0P1 

DW MNE_CPL+C_0P1 

DW MNE CJNE+A_0P1+P0UND_EXP_0P2 
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m 



m 



m 



LOG 


OBJ 


LINE 


F71D 


4235 


684 


F71F 


4AA1 


685 


F721 


4ACD 


686 
687 


F723 


4AF9 


688 


F725 


4B25 


689 


F727 


4B51 


690 


F729 


4B7D 


691 
692 


F72B 


4BA9 


693 


F72D 


4BD5 


694 


F72F 


4C01 


695 


F731 


4C2D 


696 
697 


F733 


02DF 


698 


F735 


039F 


699 


kF737 


0306 


700 


rF739 


0282 


701 
702 


F73B 


004A 


703 


F73D 


4239 


704 


F73F 


0879 


705 


F741 


0C99 


706 
707 


F743 


10B9 


708 


F745 


14D9 


709 


F747 


18F9 


710 


F749 


1D19 


711 
712 


F74B 


2139 


713 


F74D 


2559 


714 


F74F 


2979 


715 


F751 


2D99 


716 
717 


rF753 


02DD 


718 


F755 


039E 


719 


F757 


0305 


720 


F759 


0281 


721 
722 


F75B 


0048 


723 


F75D 


5D95 


724 


F75F 


0878 


725 


F761 


0C98 


726 
727 


F763 


5B85 


728 


F765 


5BB1 


729 


F767 


5BDD 


730 


F769 


5C09 


731 
732 


F76B 


5C35 


733 


^F76D 


5C61 


734 


t76F 


5C8D 


735 


rF771 


5CB9 


736 
737 


F773 


3E17 


738 



SOURCE 



;C0 



;C4 



;CC 



;D0 



;D4 



;D8 



;DC 



:E0 



DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 
DW 
DW 
DW 

DW 



MNE_CJNE+A_0P1+BYTE_EXP8_0P2 

MNE_CJNE+ATR0_0P1+P0UND_EXP_0P2 

MNE_CJNE+ATR1_0P1+P0UND_EXP_0P2 

MNE_CJNE+R0_0P1+P0UND_EXP_0P2 
MNE CJNE+R1_0P1+P0UND_EXP_0P2 
MNE~CJNE+R2_0P1+P0UND_EXP_0P2 
MNE_CJNE+R3_0P1+P0UND_EXP_0P2 

MNE_CJNE+R4_0P1+P0UND_EXP_0P2 
MNE_CJNE+R5_0P1+P0UND_EXP_0P2 
MNE CJNE+R6 0P1+P0UND_EXP_0P2 
MNE~CJNE+R7_0P1+P0UND_EXP_0P2 

MNE_PUSH+BYTE_EXP8_0P1 
MNE_AJMP+EXP11_0P1 
MNE_CLR+BIT_EXP8_0P1 
MNE_CLR + C_0P1 

MNE_SWAP + A_0P1 
MNE_XCH+A_0P1+BYTE_EXP8_0P2 
MNE_XCH+A_0P1+ATR0_0P2 
MNE_XCH+A_0P1+ATR1_0P2 

MNE_XCH+A_0P1+R0_0P2 
MNE_XCH+A_0P1+R1_0P2 
MNE_XCH+A_0P1+R2_0P2 
MNE_XCH+A_0P1+R3_0P2 

MNE_XCH+A_0P1+R4_0P2 
MNE_XCH+A_0P1+R5_0P2 
MNE_XCH+A_0P1+R6_0P2 
MNE_XCH+A_0P1+R7_0P2 

MNE_P0P+BYTE_EXP8_0P1 
MNE_ACALL+EXP11_0P1 
MNE SETB+BIT EXP8_0P1 
MNE_SETB + C_0'P"1 

MNE_DA+A_0P1 

MNE_DJNZ + BYTE_EXP8_0PH-REL8_0P2 

MNE_XCHD+A_0P1+ATR0_0P2 

MNE_XCHD+A_0P1+ATR1_0P2 

MNE_DJNZ+R0_0P1+REL8_0P2 
MNE DJNZ+Rl 0P1+REL8_0P2 
MNE~DJNZ+R2_0P1+REL8_0P2 
MNE_DJNZ+R3_0P1+REL8_0P2 

MNE DJNZ+R4_0P1+REL8_0P2 
MNE_DJNZ+R5_0P1+REL8_0P2 
MNE_DJNZ+R6_0P1+REL8_0P2 
MNE_DJNZ+R7_0P1+REL8_0P2 

MNE MOVX+A OPl+ATDPTR 0P2 
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LOG OBJ 



LINE 



SOURGE 



F775 039F 
F777 0877 
F779 0G97 

F77B 0046 
F77D 423B 
F77F 087B 
F781 0G9B 

F783 lOBB 

F785 14DB 

F787 18FB 

F789 IDIB 

F78B 213B 
F78D 255B 
F78F 297B 
F791 2D9B 

F793 06BF 
F795 039E 
F797 0483 
F799 04AF 

F79B 0047 

F79D 06EF 

F79F 0487 

F7A1 04B3 

F7A3 04DF 
F7A5 050B 
F7A7 0537 
F7A9 0563 

F7AB 058F 

F7AD 05BB 

F7AF 05E7 

F7B1 0613 



739 




DW 


740 




DW 


741 




DW 


742 


;E4 




743 




DW 


744 




DW 


745 




DW 


746 




DW 


747 


;E8 




748 




DW 


749 




DW 


750 




DW 


751 




DW 


752 


;EG 




753 




DW 


754 




DW 


755 




DW 


756 




DW 


757 


;F0 




758 




DW 


759 




DW 


760 




DW 


761 




DW 


762 


;F4 




763 




DW 


764 




DW 


765 




DW 


766 




DW 


767 


;F8 




768 




DW 


769 




DW 


770 




DW 


771 




DW 


772 


;FC 




773 




DW 


774 




DW 


775 




DW 


776 




DW 


777 


• •••••****i 


778 +1 


$EJEGT 





MNE_AJMP+EXP11_0P1 

MNE_M0VX+A_0P1+ATR0_0P2 

MNE_M0VX+A_0P1+ATR1_0P2 

MNE_GLR+A_0P1 

MNE_M0V+A_0P1 + BYTE_EXP8_0P2 
MNE_M0V+A_0P1+ATR0_0P2 
MNE_M0V+A_0P1+ATR1_0P2 

MNE_M0V+A_0P1+R0_0P2 
MNE_M0V+A_0P1+R1_0P2 
MNE_M0V+A_0P1+R2_0P2 
MNE_M0V+A_0P1+R3_0P2 

MNE_M0V+A_0P1+R4_0P2 
MNE_M0V+A_0P1+R5_0P2 
MNE_M0V+A_0P1+R6_0P2 
MNE_M0V+A_0P1+R7_0P2 

MNE_M0VX+ATDPTR_0P1+A_0P2 
MNE AGALL+EXPll OPl 
MNE_M0VX + ATR0_0"F1 + A_0P2 
MNE_M0VX+ATR1_0P1+A_0P2 

MNE_CPL+A_0P1 

MNE_M0V + BYTE_EXP8_0P1 + A_0P2 

MNE_M0V+ATR0_0P1+A_0P2 

MNE_M0V+ATR1_0P1+A_0P2 

MNE_M0V+R0_0P1+A_0P2 
MNE_M0V+R1_0P1+A_0P2 
MNE_M0V+R2_0P1+A_0P2 
MNE_M0V+R3_0P1+A_0P2 

MNE_M0V+R4_0P1+A_0P2 
MNE M0V+R5_0P1+A 0P2 
MNE_M0V+R6_0P1+A_0P2 
MNE_M0V+R7_0P1+A_0P2; 
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LOG OBJ 



F7B3 12FA00 
F7B6 02FAC9 



LINE 

779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 +1 



SOURCE 

NAME: ONE_BYTE_TAIL/ MNEMONI C_SECOND_OPERAND_TAI L 

ABSTRACT: This routine finds the opcode in the hash table which 

matches the token entered and sets the NUMBER_OF_BYTES according 
to the expression flags. These are all one byte instructions 
regardless of actual NUMBER_OF_BYTES setting. Opcodes include 
NOP, RET etc.. 

INPUTS: None 

OUTPUTS: OUR_CODE_LOW, OUR_CODE_H IGH 

VARIABLES MODIFIED: None 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: CALCULATE INSTRUCTION VALUE, 
CHECK_EXP_FLAG 

ONE_BYTE_TAIL: 

MNEMONI C_SECOND_OPERAND_TAIL: 

CALL CALCULATE_INSTRUCTION_VALUE 

JMP CHECK_EXP_FLAG 
$EJECT 
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LOG OBJ 



LINE 



SOURCE 



F7B9 


12E056 


F7BC 


B40A14 


F7BF 


12E056 


F7C2 


B4056D 


F7C5 


12E056 


F7C8 


B4A167 


F7CB 


755C17 


F7CE 


12FA28 


F7D1 


80E0 


F7D3 


300005 


F7D6 


12FA63 


F7D9 


8008 


F7DB 


B4A10D 


F7DE 


755C0D 


F7E1 


12FA28 


F7E4 


12FA00 


F7E7 


754D01 


F7EA 


22 


F7EB 


B40144 


F7EE 


12FAA8 


F7F1 


02FA00 



806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 +1 



****************************************************************** 

NAME: MNEMONIC_FIRST_OPERAND 

ABSTRACT: This routine sets flags to indicate how to assemble 
one byte instructions with one operand. It gets a hash 
value and passes the expression or expressions to run time 
routines. Instructions include: CLR A, INC A, JMP @A+DPTR, 
etc. 

INPUTS: None 

OUTPUTS: NUMBER_OF_BYTES, ORDINAL, OUR_CODE_H IGH , OUR_CODE_LOW , 
VALLOW 

VARIABLES MODIFIED: A, ORDINAL, NUMBER_OF_B YTES 

ERROR EXITS: lOH (ASSEMBLY SYNTAX ERROR) 

SUBROUTINES ACCESSED DIRECTLY: GETOKE, ONE_BYTE_TAIL , 
UPDATE_OUR_CODE, CALCULATE_I NSTRUCTION_VALUE , 
GET_FIRST_OPERAND, CHECK_AND_SET_E XP_FLAG 



MNEMONIC_FIRST_ 
CALL 
CJNE 
CALL 
CJNE 
CALL 
CJNE 
MOV 
CALL 
JMP 
JNB 
CALL 
JMP 
CJNE 
MOV 
CALL 
CALL 
MOV 
RET 
CJNE 
CALL 
JMP 



MFOO: 



MFOl: 



MF02: 



$EJECT 



OPERAND: 
■ GETOKE 

A,#ATA_TOKE,MFOO 

GETOKE 

A,#PLUS_TOKE,ASERR 

GETOKE 

A,#DPTR_TOKE,ASERR 

ORDINAL, #17H 

UPDATE_OUR_CODE 

ONE_BYTE_TAIL 

B_0_T,MF01 

GET FIRST OPERAND 

ONE BYTE TAIL 

A,#TTPTR_T0KE,MF02 

ORDINAL, #ODH 

UPDATE_OUR_CODE 

CALCULATE_INSTRUCTION_VALUE 

NUMBER_0F_BYTES,#01H 

A,#NUMBER_TOKE,ASERR 
CHECK_AND_SET_EXP_FLAG 
CALCULATE INSTRUCTION VALUE 



;Check for @A+DPTR 
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LOG OBJ 



F7F4 
F7F7 
F7FA 
F7FD 
F800 
-803 
^806 
F809 
'F80C 
F80F 
F812 
F815 
F818 
F81B 
F81E 
F821 
F824 
F827 
F82A 
F82D 
F830 
F832 
F835 
[838 
|83A 
F83D 
F840 
F843 



12E056 

B4A118 

755C0D 

12FA28 

12E06B 

12E056 

B40629 

12E050 

12FAB8 

02FA00 

300006 

12FA63 

02F824 

B40114 

12FAC1 

854A62 

12E06B 

12E056 

30000B 

12FB0D 

8081 

754310 

02E05F 

E548 

B40609 

12FAE8 

12E050 

02F7B3 



LINE 

853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 



SOURCE 
****************************************************************** 

NAME: MNEMONIC_TWO_OPERANDS 

ABSTRACT: This routine sets flags to indicate how to assemble 
two operand instructions with 2 or 3 bytes. It gets a hash 
value and passes the expression or expressions to run time 
routines. Instructions include: MOV DPTR ,#<addr> , 
MOV <data addr>,<data addr>. 

INPUTS: None 

OUTPUTS: NUMBER_OF_BYTES, ORDINAL, OUR_CODE_LOW, OUR_CODE_HIGH , 
TEMP_SEC, VALLOW 

VARIABLES MODIFIED: A, ORDINAL, TEMP_SEC, ERRNUM 

ERROR EXITS: 03H (NUMBER EXPECTED) 
lOH (ASSEMBLY SYNTAX) 

SUBROUTINES ACCESSED DIRECTLY: GETOKE, UPDATE_OUR_CODE , GET_COMMA, 
GETNUM, MNEMONIC_SECOND_OPERAND_TAIL, CALCULATE_INSTRUCTION_VALUE , 
GET_SECOND_OPERAND, SET_POUND_EXP_FLAG , SET_SLASH_EXP_FLAG, 
CHECK_AND_SET_SECOND_EXP_FLAG 

******************************************************************** 



MNEMONIC_TWO_ 
CALL 
CJNE 
MOV 
CALL 
CALL 
CALL 
CJNE 
CALL 
CALL 
JMP 
JNB 
CALL 
JMP 
CJNE 
CALL 
MOV 
CALL 
CALL 
JNB 
CALL 
JMP 
MOV 
JMP 
MOV 
CJNE 
CALL 
CALL 
JMP 



MTOO: 



MFTOO: 



MTOl: 



ASERR: 



MSOO: 



OPERANDS: 
GETOKE 

A,#DPTR_TOKE,MTOO 
ORDINAL, #ODH 
UPDATE OUR CODE 
GET_COMMA 
GETOKE 

A,#POUND_TOKE,ASERR 
GETNUM 

SET_EXP_16_FLAG 
CALCULATE INSTRUCTION_VALUE 
B_0_T,MFTIT0 
GET FIRST_OPERAND 
MTOT 

A,#NUMBER_TOKE,ASERR 
SET_EXP_FLAG 
TEMP_SEC, VALLOW 
GET_COMMA 
GETOKE 
B_0_T,MSOO 
GET_SECOND_OPERAND 
MNEMONIC_SECOND_OPERAND_TAIL 
ERRNUM, #10H 
ERROR 
A,TOKSTR 

A,#POUND T0KE,MS01 
SET_POUNrr_EXP_FLAG 
GETNUM 
MNEMONIC SECOND OPERAND TAIL 



;MNEMONIC_FIRST_TWO_OPERANDS 



iMNEMONIC SECOND OPERAND 



;Assembly syntax 
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LOG OBJ 



LINE 



SOURCE 



F846 B40309 


908 


MSOl: 


CJNE 


F849 12FAFC 


909 




CALL 


F84C 12E050 


910 




CALL 


F84F 02F7B3 


911 




JMP 


F852 754303 


912 


MS02: 


MOV 


F855 B4016A 


913 




CJNE 


F858 12FAF0 


914 




CALL 


F85B 02F7B3 


915 




JMP 




916 +1 


$EJECT 





A,#BAR_T0KE,MS02 

SET_SLASH_EXP_FLAG 

GETNUM 

MNEMONIC SECOND_OPERAND_TAIL 

ERRNUM,#ir3H 

A,#NUMBER_TOKE,TOERR 

CHECK AND SET_SECOND EXP_FLAG 

MNEMOlIC SECOND OPER'^ND TAIL 
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LOG OBJ 



F85E 
F861 
F864 
F867 
F86A 
F86D 
F870 
F873 
F876 
F879 
F87C 
[87F 
382 
385 
F888 
F88B 



12E056 
3000CE 
12FA63 
12E06B 
12E056 
B40AC2 
12E056 
12E056 
B4A109 
755C17 
12FA28 
02F7B3 
B4A0AD 
755C18 
12FA28 
02F7B3 



LINE 

917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 +1 



SOURCE 
•••****•**••************•*••*•*•*•***••*•************************* 

NAME: MOVC_OPERANDS 

ABSTRACT: This routine divides operands into one of two possible 
cases and modifies the hash value. Instructions are 
MOVC A,(aA+DPTR and MOVC A,(3A+PC. 

INPUTS: None 

OUTPUTS: ORDINAL, OUR_CODE_LOW, OUR_CODE_H IGH 

VARIABLES MODIFIED: A, ORDINAL 

ERROR EXITS: lOH (ASSEMBLY SYNTAX) 

SUBROUTINES ACCESSED DIRECTLY: GETOKE, GET_F IRST_OPERAND . GET_COMMA, 
UPDATE_OUR_CODE, ONE_BYTE_TAIL 

****************************************************************** 

MOVC_OPERANDS: 

CALL 

JNB 

CALL 

CALL 

CALL GETOKE ;MOVC_TAIL 

CJNE 

CALL 

CALL 

CJNE 

MOV 

CALL 

JMP 
MTO: CJNE 

MOV 

CALL 

JMP 



$EJECT 



GETOKE 

B_0_T,ASERR 

GET_FIRST_OPERAND 

GET_COMMA 

GETOKE 

A,#ATA_TOKE,ASERR 

GETOKE 

GETOKE 

A,#DPTR_T0KE,MTO 

ORDINAL, #17H 

UPDATE_OUR_CODE 

ONE_BYTE_TAIL 

A,#PC_TOKE,ASERR 

ORDINAL, #18H 

UPDATE_OUR_CODE 

ONE BYTE TAIL 
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LOG OBJ 



LINE 



SOURCE 



F88E 


12E056 


F891 


30009E 


F894 


12FA63 


F897 


12E06B 


F89A 


12E056 


F89D 


B40609 


F8A0 


12FAE8 


F8A3 


12E050 


F8A6 


02F8B2 


F8A9 


754303 


F8AC 


B40113 


F8AF 


12FAF0 


F8B2 


854A62 


F8B5 


12E06B 


F8B8 


12E050 


F8BB 


12FA00 


F8BE 


754D05 


F8C1 


22 


F8C2 


02E05F 


F8C5 


22 



955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 +1 



NAME: THREE_OPERANDS 

ABSTRACT: This routine parses the opcodes and modifies the 
hash value accordingly. It saves the data address or 
immediate data field and the destination address. Instructions 
are CJNE (3R0 ,#<data> , <addr> ; CJNE (aRl ,#<data> , <addr> ; 
CJNE A,#<data>,<addr>; CJNE A, <data> , <addr> ; CJNE Rn ,#<data> , <data> 

INPUTS: None 

OUTPUTS: ORIDNAL, OUR_CODE_LOW, OUR_CODE_HIGH , VALLOW, TEMP_SEC, 
NUMBER_OF_BYTES 

VARIABLES MODIFIED: NUMBER_OF_B YTES , TEMP_SEC, A 

ERROR EXITS: lOH (ASSEMBLY SYNTAX) 
03H (NUMBER EXPECTED) 

SUBROUTINES ACCESSED DIRECTLY: GETOKE, GET_F IRST_OPERAND , 

GET_COMMA, SET_POUND_EXP_FLAG , CHECK_AND_SET_SECOND_EXP_FLAG, 
GETNUM, CALCULATE_INSTRUCTION_VALUE, ERROR 

*•••*••••*******•*************•****•••••*•*•*********•*****•* 

THREE_OPERANDS: 

CALL 

JNB 

CALL 

CALL 

CALL 

CJNE 

CALL 

CALL 

JMP 

MOV 

CJNE 

CALL 

MOV 

CALL 

CALL 

CALL 

MOV 

RET 

JMP 

RET 



STOl: 



STORET: 



TOERR: 



GETOKE 

B_0_T,ASERR 

GET_FIRST_OPERAND 

GET COMMA 

GETTTKE 

A,#P0UND_T0KE,ST01 

SET_POUND_EXP_FLAG 

GETNUM 

STORET 

ERRNUM,#03H 

A,#NUMBER_TOKE,TOERR 

CHECK_AND_SET_SECOND_EXP_FLAG 

TEMP_SEC, VALLOW 

GET_COMMA 

GETNUM 

CALCULATE_INSTRUCTION_VALUE 

NUMBER_0F_BYTES,#05H 

ERROR 



;SECOND THREE OPERANDS 



;Number expected 



$EJECT 
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LOG OBJ 



F8G6 12E050 
F8G9 12FB04 
F8GG 02FA00 



LINE 

1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 



SOURGE 

NAME: JUMP_OPERAND 

ABSTRACT: This routine gets the destination for a jump from 
the command line and sets the relative operand flag to 
indicate the method of assembly. Instructions are SJMP<addr>, 
JNG<addr>, JG<addr>, JZ<addr>, JNZ<addr>. 

INPUTS: None 

OUTPUTS: OUR_GODE_LOW, OUR_GODE_H IGH , VALLOW 

VARIABLES MODIFIED: None 

ERROR EXITS: None 

SUBROUTINES AGGESSED DIRECTLY: GETNUM, SET_REL_FLAG, 
GALGULATE_INSTRUCTION_VALUE 

****************************************************************** 



JUMP_OPERAND: 
CALL 
GALL 
JMP 
■1 $EJEGT 



GETNUM 

SET_REL_FLAG 

CALCULATE INSTRUCTION VALUE 
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LOG OBJ 



F8CF 


12E056 


F8D2 


30000C 


F8D5 


12FA63 


F8D8 


12FB04 


F8DB 


12FA00 


F8DE 


02F8F0 


F8E1 


B401DE 


F8E4 


12FAA8 


F8E7 


12FB04 


F8EA 


12FA00 


F8ED 


754D05 


F8F0 


854A62 


F8F3 


12E06B 


F8F6 


02E050 



LINE 

1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 +1 



SOURCE 

***************************************************************** 

NAME: JUMP_TWO_OPERANDS 

ABSTRACT: This routine gets an expression for an address bit 
which will be tested by the jump. It modifies OUR_CODE and 
REL_FLAG to indicate proper means of assembly, then gets 
the destination address. Instructions are JB<bit addr> , <addr> ; 
JBC<bit addr>,<addr>; JNB<bit addr> , <addr> ; DJNZ<bit addr> , <addr> ; 
DJNZ Rn,<addr>. 

INPUTS: B_0_T 

OUTPUTS: NUMBER_OF_BYTES, TEMP_SEC, 0UR_C0DE_L0W, OUR_CODE_H IGH , 
VALLOW 

VARIABLES MODIFIED: NUMBER_OF_BYTES , TEMP_SEC 
ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: GETOKE, GET_F IRST_OPERAND , 

SET REL_FLAG, CALCULATE_INSTRUCTION_VALUE , CHECK_AND_SET_EXP_FLAG, 
GET COMMA, GETNUM 



•**•**•* 



*********************************************************** 



JUMP TWO OPERANDS: 



JTOO: 



JTRET: 



$EJECT 



CALL GETOKE 

JNB B_0_T,JTOO 

CALL GET_FIRST_OPERAND 

CALL SET REL_FLAG 

CALL CALCULATE_INSTRUCTION_VALUE 

JMP JTRET 

CJNE A,#NUMBER_TOKE,TOERR 

CALL CHECK_AND_SET_EXP_FLAG 

CALL SET_REL_FLAG 

CALL CALCULATE INSTRUCTION_VALUE 

MOV NUMBER_0F~BYTES,#05H 

MOV TEMP_SEC,YALL0W 

CALL GET_COMMA 

JMP GETNUM 
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LOG OBJ 



F8F9 12E050 

F8FC 755C15 

F8FF 12FA28 

F902 754D06 

F905 02FA00 



LINE 

1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 



SOURCE 

NAME: JUMP_ABSOLUTE_OPERAND 

ABSTRACT: This routine gets the destination address and 
modifies OUR_CODE to indicate that the upper 3 bits of 
address must be included in the final opcode. Instructions 
of this type are AJMP <addr>, ACALL <addr>. 

INPUTS: None 

OUTPUTS: ORDINAL, NUMBER_OF_BYTES , OUR_CODE_LOW, OUR_CODE_HIGH , 
VALLOW, VALHGH 

VARIABLES MODIFIED: ORDINAL, NUMBER_OF_BYTES 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: GETNUM, UPDATE_OUR_CODE . 
CALCULATE_INSTRUCTION_VALUE 

***************************************************************** 
JUMP ABSOLUTE OPERAND: 



+1 $EJECT 



CALL GETNUM 

MOV ORDINAL, #15H 

CALL UPDATE_OUR_CODE 

MOV NUMBER_0F_BYTES,#06H 

JMP CALCULATE I NSTRUCTION_VALUE 



SET_EXP_11_FLAG 
2K page jump 
Absolute instruction 
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LOG OBJ 



F908 12E050 
F90B 12FAB8 
F90E 02FA00 



LINE 

1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 



SOURCE 
****************************************************************** 

NAME: JUMP_LONG_OPERAND 

ABSTRACT: This routine gets the destination address and sets 
the 16 bit expression flag. It then searches the hash table 
for a matching opcode. Instructions are LCALL <addr> and 
LJMP <addr>. 

INPUTS: None 

OUTPUTS: ORDINAL, NUMBER_OF_BYTES , OUR_CODE_LOW, OUR_CODE_HI GH , 
VALHGH, VALLOW 

VARIABLES MODIFIED: None 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: GETNUM, SET_EXP_16_FLAG , 
CALCULATE_INSTRUCTION_VALUE 

.•********•**•****************************•***•*******••********** 
JUMP_LONG_OPERAND: 

CALL GETNUM 
CALL SET_EXP_16_FLAG 
J MP CALCULATE_INSTRUCTION_VALUE 
hi $EJECT 
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LOG OBJ 



F911 754310 

F914 90F921 

F917 E55B 

F919 C3 

F91A 9407 

F91C 75F003 

F91F A4 

F920 73 



m 



921 02F7B3 
924 02F7B9 
F927 02F7F4 
F92A 02F85E 
F92D 02F88E 
F930 02F8C6 
F933 02F8CF 
F936 02F8F9 
F939 02F908 



LINE 

1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 +1 



SOURCE 

NAME: MNEMONIC_INSTRUCTION_TAIL 

ABSTRACT: This routine selects the type of instruction as determined 
by the MNEMONIC INSTRUCTION TABLE and calls the handler for the 
type specified. The handler completes the parsing of the command 
line and does the hash table look-up. 

INPUTS: INSTRUCTION_VALUE 

OUTPUTS: ORDINAL, VALLOW, VALHGH, TEMP_SEC, NUMBER_OF_BYTES , 
OUR_CODE_LOW, OUR_CODE_HIGH 

VARIABLES MODIFIED: DPTR, A, C. B, ERRNUM 

ERROR EXITS: lOH (ASSEMBLY SYNTAX) 

SUBROUTINES ACCESSED DIRECTLY: ONE_BYTE_TAIL , MNEMONI C_F IRST_OPERAND , 
MNEMONIC_TWO_OPERANDS, MOVC_OPERANDS , THREE_OPERANDS, JUMP_OPERAND , 
JUMP_TWO_OPERANDS, JUMP_ABSOLUTE_OPERAND , JUMP_LONG_OPERAND 

***************************************************************** 
MNEMONI C_INSTRUCT I ON_TAIL: 

MOV ERRNUM, #10H 

MOV DPTR,#MIT_JMP_TBL 

MOV A, INSTRUCTION VALUE 

CLR C 

SUBB A,#07H 

MOV B,#03H 

MUL AB 

JMP @A+DPTR 
MIT_JMP_TBL: 

LJMP ONE BYTE TAIL 

LJMP MNEMONIC_FIRST_OPERAND 

LJMP MNEMONIC TWO OPERANDS 

LJMP MOVC_OPERANDS 

LJMP THREE_OPERANDS 

LJMP JUMP_OPERAND 

LJMP JUMP_TWO OPERANDS 

LJMP JUMP_ABS^LUTE_OPERAND 

LJMP JUMP_LONG_OPERAND 
$EJECT 



;Mult by 3, each tbl entry is 3 bytes 
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LOC OBJ 



F93C 


C202 


F93E 


C203 


F940 


C204 


F942 


754D00 


F945 


754E00 


F948 


C3 


F949 


E548 


F94B 


9410 


F94D 


F54F 


F94F 


90F587 


F952 


93 


F953 


F55B 


F955 


7416 


F957 


B54F0C 


F95A 


C3 


F95B 


E54F 


F95D 


941C 


F95F 


5007 


F961 


D202 


F963 


02F968 


F966 


40F2 


F968 


E54F 


F96A 


B42B03 


F96D 


02F972 


F970 


5035 


F972 


3111 


F974 


02FB82 



LINE 

1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 

1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 +1 



SOURCE 
****************************************************************** 

NAME: MNEMONIC_INSTR_LIST_TAIL 

ABSTRACT: This routine sets up information to be used in later 
processing of the mnemonic by deciphering the information 
in MNEMONIC_TAB then the call to MNEMONI C_INSTRUCTION_TAIL and 
CHANGE_TO_INSTRUCTION_OP completes the assembly. 

INPUTS: TOKSTR, ASM_PC_LOW, ASM_PC_HIGH 

OUTPUTS: Code memory locations pointed to by ASM_PC. 

VARIABLES MODIFIED: BIT_EXP, FIRST_EXP, SECOND_EXP, A, C, DPTR, 
INSTRUCTION_VALUE, OUR_CODE_LOW 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: MNEMONI C_I NSTRUCTION_TAIL , 
CHANGE TO I NSTRUCTION_OP 



***••*•**•*** 
MNEMONIC_INSTR 
CLR 
CLR 
CLR 
MOV 
MOV 
CLR 
MOV 
SUBB 
MOV 
MOV 
MOVC 
MOV 
MOV 
CJNE 
CONT_OUR_CODE: 
CLR 



;MNEMONIC_INSTR 
;Initialize flags 



;SELECT INSTRUCTION TAIL 



**************************************************** 
LIST_TAIL: 
BIT_EXP 
FIRST EXP 

sEC0Nrr_EXP 

NUMBER_OF_BYTES,#OOH 

OUR_CODE_HIGH,#OOH 

C 

A, TOKSTR 

A,#OFST 

OUR_CODE_LOW,A 

DPTR,#MNEMONIC_TAB 

A,@A+DPTR 

INSTRUCTION_VALUE,A 

A,#JUMP END 

A, OUR CITDE LOW,OUR_GTRTHN 



MOV 



END 



SUBB 
JNC 
SETB 
JMP 

OUR_GTRTHN: 
JC 

END_SELECT_INS 
MOV 



MIO: 
Mil: 

$EJECT 



CJNE 

JMP 

JNC 

CALL 

JMP 



A,OUR_CODE_LOW 

A,#(BIT_END+1) 

END SELECT_INSTRUCTION_TAIL 

BIT EXP 

END_SELECT_INSTRUCTION_TAIL 

CONT_OUR_CODE 
TRUCTION_TAIL: 
A,OUR_CODE_LOW 
A,#2BH,MI0 
Mil 

AMTERR 

MNEMONIC_INSTRUCTION_TAIL 
CHANGE TO INSTRUCTION_OP 



;Search for corresponding match using 
;look-up and check to see if mnemonic 
;is JBC, JB, JNB, CPL or SETB. If is, 

;then set BIT_EXP. If OUR_CODE=#JUMP_EN 
;Then fall thru or check for OUR_CODE>#JUMP 

;Check that OUR_CODE<=B IT_END 
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.OC OBJ 



977 


755205 


97A 


12E056 


97D 


B4D40F 


980 


12E050 


983 


85494B 


986 


854A4C 


989 


12E00F 


980 


12E056 


98F 


B40715 


992 


7824 


994 


AA4B 


996 


12E05C 


999 


AA4C 


99B 


12E05C 


99E 


7620 


9A0 


12E056 


9A3 


B40707 


9A6 


22 


9A7 


754310 


9AA 


02E05F 


9AD 


3130 


9AF 


12E053 


9B2 


80DE 



LINE 

1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 +1 



SOURCE 



• ■*•*•••***** 



• *******•****•****■*•*■•***•••**••****•******************* 



NAME: ASSEMBLY_CMD 

ABSTRACT: This routine parses the rest of the command line 
for ORG or carraige return and enters the ASM mode. Once 
in ASM mode, control remains here in a loop assembling 
instructions until a carraige return is found on a line by 
itself. 

INPUTS: None 

OUTPUTS: Code memeory locations pointed to in ORG clause or 
pre-existing ASM_PC setting. 

VARIABLES MODIFIED: ASM_PC_HIGH, ASM_PC_LOW, A, POINTO, PARAMl, 
ERRNUM 

ERROR EXITS: lOH (ASSEMBY SYNTAX) 

SUBROUTINES ACCESSED DIRECTLY: GETOKE, NEWLINE, GETNUM, 

SAVE_AND_DISPLAY, ERROR, MNEMONI C_I NSTR_LIST_TAIL , GETEOL 



AMTO: 
AMTl: 



ASSEMBLY_CMD: 
MOV 
CALL 
CJNE 
CALL 
MOV 
MOV 
CALL 
CALL 
CJNE 
MOV 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
CJNE 
RET 
MOV 
JMP 
CALL 
CALL 
JMP 



AMTERR: 
AMT2: 



LINE_STAR 

GETOKE 

A,#ORG_TO 

GETNUM 

ASM_PC_HI 

ASM_PC_LO 

NEWLINE 

GETOKE 

A,#EOL_TO 

POINTO, #L 

PARAM1,AS 

SAVE_AND_ 

PARAM1,AS 

SAVE_AND_ 

@POINTO,# 

GETOKE 

A,#EOL TO 



T,#05H 

KE,AMT0 

GH,VALHGH 
W,VALL0W 



;Get past address 



KE, AMTERR 

INBUF 

M PC HIGH 

DISPLAY 

M_PC_LOW 

DISPLAY 



KE,AMT2 



ERRNUM, #10H 

ERROR 

MNEMONIC_INSTR_LIST_TAIL 

GETEOL 

AMTl 



;Assembly syntax 



$EJECT 
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LINE 
1272 +1 




= 1 


1273 




= 1 


1274 




= 1 


1275 




= 1 


1276 




= 1 


1277 




= 1 


1278 




= 1 


1279 




= 1 


1280 




= 1 


1281 




= 1 


1282 




= 1 


1283 




= 1 


1284 




= 1 


1285 




= 1 


1286 




= 1 


1287 




= 1 


1288 




= 1 


1289 




= 1 


1290 




= 1 


1291 




= 1 


1292 




= 1 


1293 +1 



SOURCE 

$INCLUDE(:F1:ASM.INC) 
****************************************************************** 



This is the include file called ASM. INC. 
following subroutines in order: 



It contains the 



START_DIVIDE 

CALCULATE_INSTRUCTION_VALUE 

UPDATE_OUR_CODE 

GET_FIRST_OPERAND 

CHECK_AND_SET_EXP_FLAG 
SET_EXP_16_FLAG 
SET_EXP_FLAG 
CHECK_EXP_FLAG 
SET_POUND_EXP_FLAG 
CHECK_AND_SET_SECOND_EXP_FLAG 
SET_SLASH_EXP_FLAG 
SET_REL_FLAG 

GET_SECOND_EXP 

$EJECT 
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LOG OBJ 



LINE 



SOURCE 



1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 



* * 

* This module contains most procedures needed to implement the * 

* assembler which processes the ASM command. The rest are contained * 

* in the ASMA module. * 

* • 

* INSTRUCTION_VALUE - Public variable used at parse time. The * 

* instruction is assembled into it. * 



The assembler consists of three pieces: 

- Tables in the module ASM_TBL code which contain the details of the 
8051 assembly language, 

- Parse time procedures in this module use these tables to: 
-Set up flags and variables to control actual memory * 

writing operations, search the tables for matched to the hashed 
command 1 i ne. 

- Assemble the instruction as if any expression, immediate data, or 

jump addresses are zero (they are evaluated at run-time). 

- Procedures selected by the above parse time procedures determine: 

- What the instruction format is, 

- How to combine the expressions, immediate data, or jump addresses 

(if any) after being calculated with the instruction value 
assembled at parse time to create the final result of the 
assembly in memory. 

The opcode is found by generating a hash value as the parser scans the 
instruction. How the hash value is calculated is discussed in ASM_TBL. 
All the hash values are stored in the table, #INSTRUCTION_CODE , and the 
ordinal corresponding to a hash value is the opcode for that instructio 
Except for absolute instructions, in which case the opcode is further 
calculated in CHANGE_TO_INSTRUCTION_OP , NUMBER_OF_BYTES contains either 
the actual number of bytes in the instruction or a code to enable 
CHANGE_TO_INSTRUCTION_OP to write the correct number of bytes in the 
correct order. See CHANGE_TO_INSTRUCTION_OP for more details. 

Parsing the command line leaves the opcode in INSTRUCTION_VAHJE at run 
time. CHANGE_TO_INSTRUCTION_OP is called after each command line 
to process the type of instruction appropriately to write it out to 
memory. Relative offsets and 2K jump or calls are generated here. 

Details on the use of the tables in the assembly can be found in the 
documentation in the ASM TBL module. 



In the operand_tabl e the basic operands(ex. C , A,R0-R7 , etc. ) have the 
ordinal+1 values of 1-15 but the values 16-24 were used to represent 
certain expressions as follows: 



16 - BYTE EXP8 

17 - BIT EXP8 

18 - IMMEDIATE(#) EXP8 

19 - COMPLEMENT^/) EXP8 



21 - EXPll 

22 - RELATIVE OFFSET EXPRESSION 

23 - @A+DPTR 

24 - @A+PC 
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LINE 



SOURCE 



1 1349 ; 


1 1350 ; 


1 1351 ; 


1 1352 ; 


1 1353 ; 


1 1354 ; 


1 1355 ; 


1 1356 ; 


1 1357 ; 


1 1358 ; 


1 1359 ; 


1 1360 ; 


1 1361 ; 


1 1362 ; 


1 1363 ; 


1 1364 


1 1365 ; 


1 1366 ; 


1 1367 ; 


1 1368 ; 


1 1369 ; 


1 1370 ; 


= 1 1371 ; 


=1 1372 ; 


--1 1373 ; 


=1 1374 ; 


= 1 1375 ; 


=1 1376 +1 $ 



20 - EXP16 



A problem arose which made the software more involved: determining if 
the eight bit expression was a bit or byte expression. Since disassembly 
uses the same tables as assembly the hash values had to be precise. 
The following instructions had bit expressions: 



JBC BIT EXP, CODE EXP 

JB BIT EXP, CODE EXP 

JNB BIT EXP, CODE EXP 

CLR BIT EXP, CODE EXP 

CPL BIT EXP, CODE EXP 



ORL CBIT EXP 
ANL CBIT EXP 
MOV CBIT EXP 



MOV BIT EXP,C 



' SETB BIT EXP, CODE EXP ^ 

i 

^ In the first group, if the mnemonic was one of those six mnemonics the * 

^ BIT EXP FLAG was set and if an expression was found we know it was a bit * 

' expression. The second group was a little more difficult.^ If the fij^st * 
^ operand of a two operand instruction was found to be a 'C the BIT_EXP 

^ flag was set and then if the second operand was an expression we knew it * 

"^ was a bit expression. The third group was the real problem. If the * 

" second operand of a two operand instruction was a 'C and the first * 

" operand had been an expression then the hash value was re-calculated to * 

•^ indicate a bit expression. * 

k * 



$EJECT 



MCS-51 MACRO ASSEMBLER 



'SDK-51 ASSEMBLER/DISASSEMBLER INTEL PROPRIETARY VERS. #1.03 



8,12,81 



PAGE 31 



LOG OBJ 



F9B4 


E570 


F9B6 


7F09 


F9B8 


7E00 


F9BA 


7D00 


F9BC 


C3 


F9BD 


E56E 


F9BF 


4011 


F9C1 


6021 


F9C3 


9570 


F9C5 


401D 


F9C7 


F56E 


F9C9 


EE 


F9CA 


2401 


F9CC 


5001 


F9CE 


OD 


F9CF 


FE 


F900 


80EA 


F9D2 


EE 


F9D3 


2401 


F9D5 


5001 


F9D7 


OD 


F9D8 


FE 


F9D9 


C3 


F9DA 


E56E 


F9DC 


9570 


F9DE 


F56E 


F9E0 


40DA 


F9E2 


80EE 


F9E4 


DF05 



LINE 

1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 



SOURCE 
****************************************************************** 

NAME: START_DIVIDE 

ABSTRACT: This is a software divide routine. Inputs are an 8-bit 
divisor and a 16-bit dividend. The quotient is 16-bits and 
the remainder is truncated to 8 bits. 

INPUTS: DIVIDEND_HIGH, DI VIDEND_L0W, DIVISOR 

OUTPUTS: QUOTIENT_HIGH, QUOTIENT_LOW 

VARIABLES MODIFIED: A, PARAM6, DI VIDEND_LOW, QUOTI ENT_HIGH , 
PARAM5, PARAM4, C, DI VIDEND_H IGH , QUOTIENT_LOW 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 

START_DIVIDE: 

MOV 

MOV 

MOV 

MOV 
DIVIDE_1: 

CLR C 
DIVIDE_2: 

MOV 

JC 

JZ 

SUBB 

JC 

MOV 

MOV 

ADD 

JNC 

INC 
DIVIDE_3: 

MOV 

JMP 
SUBTRACT_WITH 

MOV 

ADD 

JNC 

INC 
DIVIDE_4: 

MOV 

CLR 

MOV 

SUBB 

MOV 

JC 

JMP 
ROTATE: DJNZ 



A, DIVISOR 
PARAM6,#09H 
PARAM5,#00H 
PARAM4,#00H 



A,DIVIDEND_HIGH 

SUBTRACT_WITH_C 

ROTATE 

A, DIVISOR 

ROTATE 

DIVIDEND_HIGH,A 

A,PARAM5 

A,#01H 

DIVIDE_3 

PARAM4 

PARAM5,A 
DIVIDE_1 

A,PARAM5 
A,#01H 
DIVIDE 4 
PARAM4~ 

PARAM5,A 

C 

A,DIVIDEND_HIGH 

A, DIVISOR 

DIVIDEND_HIGH,A 

DIVIDE_1 

SUBTRACT_WITH_C 

PARAM6, ROTATE CONTINUE 



C: 



;Carry occurs from rotate 

;Rotate quotient and dividend if zero 

A carry means divisor is larger than dividend 
Replace DI VIDEND_HIGH with new number 
PARAM5 holds lower byte of quotient 
Increment quotient 

;High counter incremented if carry occurs 

;Replace with new quotient 
;Loop 



;Quotient always incremented if carry set 



;Subtract divisor from dividend 

;Jump to subtract with no carry if carry is set 

;Loop in subtract with C if no carry 

;PARAM6 counts number of rotates 
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LOG 


OBJ 




LINE 


SOURGE 






F9E6 


8D71 


= ■ 


1432 




MOV 


QUOTIENT HIGH,P 


F9E8 


8E72 


= ; 


1433 




MOV 


QUOTIENT_LO!aI,PA 


F9EA 


22 


= ; 


1434 




RET 








= : 


[ 1435 


ROTATE_ 


CONTINUE 




F9EB 


G3 


= ; 


1436 




" GLR 


*G 


F9EG 


EE 


= 


L 1437 




MOV 


A,PARAM5 


F9ED 


33 


= ; 


L 1438 




RLG 


A 


F9EE 


FE 


= : 


L 1439 




MOV 


PARAM5,A 


F9EF 


ED 


= 


L 1440 




MOV 


A,PARAM4 


F9F0 


33 


= : 


L 1441 




RLG 


A 


F9F1 


FD 


= ; 


L 1442 




MOV 


PARAM4,A 


F9F2 


G3 


= 


L 1443 




GLR 


G 


F9F3 


E56F 


= 


L 1444 
L 1445 




MOV 


A,DIVIDEND_LOW 


F9F5 


33 


= 


L 1446 




RLG 


A 


F9F6 


F56F 


= 


I 1447 




MOV 


DIVIDEND LOW, A 


F9F8 


E56E 


= 


L 1448 




MOV 


A, DIVIDEND HIGH 


F9FA 


33 


= 


L 1449 




RLG 


A 


F9FB 


F56E 


= 


L 1450 




MOV 


DIVIDEND HIGH, A 


F9FD 


80BE 


= 


L 1451 




SJMP 


DIVIDE 2 


F9FF 


22 


- ■ 


L 1452 
L 1453 +1 


$EJEGT 


RET 





;Exit from divide routine 



;Rotdte ;pwer byte of quotient first 
;Replace with new quotient low 

;Rotate upper byte with MSB from lower 
;byte into LSB of upper byte 

;Rotate dividend with e\/ery rotate of 
; quotient 



;Loop 

;End of divide routines 
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LOG OBJ 



m 



FAOO 90F5B3 

FA03 755F00 

FA06 E4 

FA07 93 

FA08 055F 

FAOA A3 

FAOB B54E09 

FAOE E4 

,FAOF 93 

AlO A3 

FAll B54F04 

FA14 155F 

FA16 22 



FA17 A3 

FA18 E583 

FAIA B4F7E9 

FAID E582 

FAIF B4B3E4 

FA22 754310 

FA25 02E05F 



LINE 

1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 +1 



SOURCE 
••*•**•*•*************•**•************************************+*** 

NAME: CALCULATE_INSTRUCTION_VALUE 

ABSTRACT: Parse-time action to assemble the instruction just parsed 
into the public variable INSTRUCTION_VALUE. The values may be 
calculated and filled in at run-time. Using the hash value, 
the #INSTRUCTION_CODE table is searched for a corresponding match. 
If one is found, the ordinal of the match ( INSTRUCTION_VALUE ) is 
the opcode of the instruction. If one is not found, an error is issued 
and processing stops. 

INPUTS: OUR_CODE_LOW, OUR_CODE_HIGH 

OUTPUTS: INSTRUCTION, OUR_CODE_LOW, OUR_CODE_HIGH 

VARIABLES MODIFIED: DPTR, A, ERRNUM, C, INSTRUCTION 

ERROR EXITS: lOH (ASSEMBLY SYNTAX) 

SUBROUTINES ACCESSED DIRECTLY: ERROR 

************************************************************ 



CALCULATE INSTRUCTION VALUE 
INST V 



DPTR,#INSTRUCTION_CODE 
INSTRUCTION, #00H 



CHECK_ 
CHECK 



$EJECT 



MOV 

MOV 
'ALUE_LOOP 

CLR 

MOVC 

INC 

INC 

CJNE 

CLR 

MOVC 

INC 

CJNE 

DEC 

RET 
AND_INC_HASH_TAB: 

INC DPTR 
HASH_TAB: 

MOV A,DPH 

CJNE A,#HIGH(INSTRUCTI0N_C0DE+200H),INST_VALUE_L00P 

MOV A,DPL 

CJNE A,#L0W(INSTRUCTI0N_C0DE+200H),INST_VALUE_L00P 

MOV ERRNUM, #10H ;Assembly syntax 

JMP ERROR 



A,0A+DPTR 

INSTRUCTION 

DPTR 

A,OUR_CODE_HIGH,CHECK_AND_INC_HASH_TAB 

A 

A,@A+DPTR 

DPTR 

A, OUR CODE LOW, CHECK HASH TAB ;Second byte is high byte (CS) 

INSTRTJCTIOTT 
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LOG OBJ 



FA28 


E54E 


FA2A 


7017 


FA2C 


742C 


FA2E 


855CF0 


FA31 


B54F0D 


FA34 


A4 


FA35 


85F04E 


FA38 


254F 


FA3A 


5002 


FA3C 


054E 


FA3E 


F54F 


FA40 


22 


FA41 


50F1 


FA43 


742C 


FA45 


855CF0 


FA48 


A4 


FA49 


AFFO 


FA4B 


75F018 


FA4E 


A4 


FA4F 


254F 


FA51 


F54F 


FA53 


E5F0 


FA55 


354E 


FA57 


F54E 


FA59 


EF 


FA5A 


75F0r8 


FA5D 


A4 


FA5E 


254E 


FA60 


F54E 


FA62 


22 



LINE 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 



SOURCE 



*********** 



******************************************************* 



NAME: UPDATE_OUR_CODE 

ABSTRACT: Local procedure used to determine whether to use 

#MNEMONIC_FACTOR (first operand) or #OPERAND FACTOR*#MNEMONI C_FACTOR 
(second operand) and then update the hash value, OUR_CODE. 

INPUTS: OUR_CODE_LOW, OUR_CODE_H I GH , ORDINAL 

OUTPUTS: OUR_CODE_LOW, OUR_CODE_H I6H 

VARIABLES MODIFIED: A, B, OUR_CODE_H I GH , OUR_COD E_LOW , PARAM6 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 



********************** 



******************************************** 



UPDATE_OUR_CODE 

MOV 

JNZ 

MOV 

MOV 

CJNE 
CONT_UPDATE_LSS 

MUL 

MOV 

ADD 

JNC 

INC 
ULl: MOV 

RET 
UPDATE_LSSTHN: 

JNC 



ULO: 



+1 $EJECT 



MOV 

MOV 

MUL 

MOV 

MOV 

MUL 

ADD 

MOV 

MOV 

ADDC 

MOV 

MOV 

MOV 

MUL 

ADD 



MOV 
RET 



A,OUR_CODE_HIGH 
ULO 

A,#MNEMONIC_FACTOR 
B, ORDINAL 

A,OUR_CODE_LOW,UPDATE_LSSTHN 
THN: 
AB 

OUR_CODE_HIGH,B 
A,OUR_CODE_LOW 
ULl 

OUR_CODE_HIGH 
OUR CODE_LOW,A 



CONT_UPDATE_LSSTHN 

A,#MNEMONIC_FACTOR 

B, ORDINAL 

AB 

PARAM6,B 

B,#OPERAND_FACTOR 

AB 

a, our code low 
our_c^de_lUw,a 

A,B 

A, OUR CODE HIGH 

OUR_CUDE_HTGH,A 

A,PARAM6 

B,#OPERAND_FACTOR 

AB 

A, OUR CODE HIGH 



OUR CODE HIGH, A 



Set-up for <= 

Set-up for MUL AB 

Fall through if"=",or check 

for "<" 

ORDINAL * #MNEMONIC_FACTOR 

Save high order byte 

Add old OUR CODE 



;Replace with new code 
; E X i t 



;ORDINAL * #MNE MON I C_FACTOR 

;Add old OUR_CODE 
;Replace with new OUR_CODE 

;Add high byte of OUR_CODE 

;Recall upper byte of first mult. 



;Add upper byte if second multiply 
;to upper byte of first multiply 
;Multiplied by OPER_FACTOR 

;Exit 
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LOG OBJ 



FA63 75F02C 

FA66 E548 

FA68 C3 

FA69 9490 

FA6B 401B 

FA6D 9408 

FA6F 5017 

FA71 E548 

FA73 C3 

FA74 948C 

FA76 A4 

^FA77 254F 

|A79 F54F 

PA7B 5002 

-A7D 054E 

FA7F E5F0 

FA81 254E 

FA83 F54E 

FA85 02FAA0 

FA88 7410 

FA8A 2440 

FA8C FF 

FA8D E548 

FA8F C3 

FA90 9F 

FA91 A4 

FA92 254F 



# 



A94 F54F 

96 5002 

FA98 054E 



FA9A E5F0 



LINE 

1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 



SOURCE 
***************•*••••**•******************•*•••••*•*••**•*** 

NAME: GET_FIRST_OPERAND 

ABSTRACT: (ORDINAL + 1 )*MNEMONI C_FACTOR is added to OUR_CODE 
(the hash value). If the operand was a 'C', then BIT_EXP is 
set to 1 (true). 

INPUTS: TOKSTR, OUR_CODE_LOW , OUR_CODE_H I GH 

OUTPUTS: BIT_EXP, OUR_CODE_LOW, OUR_CODE_HIGH 

VARIABLES MODIFIED: B, A, C, OUR_CODE_LOW , OUR_CODE_H IGH , PARAM6, 
BIT_EXP 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 



GET_FIRST_OPE 
MOV 
MOV 
CLR 
SUBB 
JC 

SUBB 
JNC 
MOV 
CLR 
SUBB 
MUL 
ADD 
MOV 
JNC 
INC 

GE_FI_0P_1: 
MOV 
ADD 
MOV 
JMP 

FIRST_NOT_REG 
MOV 
ADD 
MOV 
MOV 
CLR 
SUBB 
MUL 
ADD 
MOV 
JNC 
INC 

GE_FI_0P_2: 
MOV 



RAND: 

B,#MNEMONIC_FACTOR 

A, TOKSTR 

C 

A,#90H 

FIRST_NOT_REGISTER 

A,#08H 

FIRST_NOT_REGISTER 

A, TOKSTR 

C 

A,#8CH 

AB 

A, OUR CODE LOW 

0UR_CTTDE_LUW,A 

GE_FI 0P_1 

OUR CUDE HIGH 



A,OUR_CODE_HIGH 
OUR_CODE_HIGH,A 
SET_BIT_EXP 
ISTER: 

A,#OFST 

A,#REG 

PARAM6,A 

A, TOKSTR 

C 

A,PARAM6 

AB 

A, OUR CODE LOW 

0UR_CUDE_L^W,A 

GE_FI 0P_2 

OUR CTTDE HIGH 



;Check if TOKSTR=REGI STER token(0-7) 



A,B 
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LOG OBJ 

FA9G 254E 
FA9E F54E 

FAAO E548 
FAA2 B45E02 
FAA5 D202 

FAA7 22 



LINE 

1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 



SOURGE 



+ 1 



ADD 

MOV 
SET BIT EXP: 

MOV 

CJNE 

SETB 
END FIRST OPERAND: 

RET 
$EJEGT 



A,OUR_GODE_HIGH 
OUR GODE HIGH, A 



A,TOKSTR 

A,#G_TOKE,END_FIRST_OPERAND 
BIT EXP 



; E X i t 



MCS-Sl MACRO ASSEMBLER 



'SDK-51 ASSEMBLER/DISASSEMBLER INTEL PROPRIETARY VERS. #1.03 



.12,81 



PAGE 



37 



LOG OBJ 



LINE SOURCE 

NAME: CHECK AND SET EXP_FLAG, SET_EXP_16_FLAG . SET_EXP_FLAG, 

CHECK_EXP_FLAG, SET_POUND__EXP_FLAG , CHECK_AND_SET_SECOND_EXP_FLAG, 
SET_SLASH_EXP_FLAG, SET_REL_FLAG 

ABSTRACT: 

CHECK AND SET_EXP_FLAG : Parse-time action to check to see if 
BIT_EYP is set(l). If so, the EXP8 is a bit EXP8 (eight-bit 
expression), otherwise is ti a byte EXP8. The ordinal is set 
appropriately and UPDATE_OUR_CODE is called to update the 
hash value, OUR_CODE. The FIRST_EXP flag is set(l) to signify 
that the first operand was an expression of some sort. 
NUMBER_0F_BYTES is set to 2 to signify that it is a two byte 
instruction so far. 

SET EXP 16 FLAG: Parse-time action to set the ordinal to 20 to 
show that the operand has an EXP16 ad then cal UPDATE_OUR_CODE to 
update the hash value, OUR_CODE. SET_NUMBER_OF_BYTES equal to 
7 to signify that the instruction was a long jump or call or 
MOV DPTR,EXP16. 

SET_EXP_FLAG: Parse-time prodecure to set the ordinal equal to 
16 to show that the operand was a byte EXP8 expression ad call 
UPDATE_OUR_CODE to update the hash value, OUR_CODE. Set the 
FIRST_EXP flag to show that the first operand was an expression 
of some sort. 

CHECK_EXP_FLAG: Parse-time action that checks the FIRST_EXP 
flag and the SECOND_EXP flag. by determining which are set 
and which are not, NUMBER_OF_BYTES is set according to the 
the instruction. 

SECOND_EXP 



1 



1 





1621 - 




1622 ; 




1623 ; 




1624 ; 




1625 ; 




1626 ; 




1627 ; 




1628 ; 




1629 ; 




1630 ; 




1631 ; 


= 1 


1632 ; 


= 1 


1633 ; 


= 1 


1634 ; 


= 1 


1635 ; 


= 1 


1636 ; 


= 1 


1637 ; 


= 1 


1638 ; 


= 1 


1639 ; 


= 1 


1640 


= 1 


1641 ; 


= 1 


1642 ; 


= 1 


1643 ; 


= 1 


1644 ; 


= 1 


1645 ; 


= 1 


1646 ; 


= 1 


1647 ; 


= 1 


1648 ; 


= 1 


1649 ; 


= 1 


1650 ; 


= 1 


1651 ; 


= 1 


1652 ; 


= 1 


1653 ; 


= 1 


1654 ; 


= 1 


1655 ; 


= 1 


1656 ; 


= 1 


1657 


= 1 


1658 ; 


= 1 


1659 


= 1 


1660 ; 


= 1 


1661 ; 


= 1 


1662 ; 


= 1 


1663 ; 


= 1 


1664 ; 


= 1 


1665 ; 


= 1 


1666 ; 


= 1 


1667 ; 


= 1 


1668 ; 


= 1 


1669 ; 


= 1 


1670 


= 1 


1671 ; 


= 1 


1672 ; 


= 1 


1673 ; 


= 1 


1674 


= 1 


1675 ; 



number of bytes i n 
FIRST_EXP 


1 
1 



NUMBER_OF_BYTES 

1 

2 

2 

3 



SET_POUND_EXP_FLAG: Parse-time action to set the ordinal equal 
to 18 to show that the operand was an immediate(#) expression, 
update the hash value, OUR_CODE, by calling UPDATE_OUR_CODE. 
SECOND_EXP flag is set to signify that the second operand was an 
expression of some sort. 

CHECK_AND_SET_SECOND_EXP_FLAG: Parse-time action to set the 

SECOND_EXP flag to signify that the second operand was an expression 

of some sort. The BIT_EXP flag is checked. If set, the ordinal 

is set equal to 17 to show that the operand was a bit EXP8. If 

it was not set, the ordinal is set to 16 to show that the operand 

was a byte EXP8. The hash value is updated by calling UPDATE_OUR_CODE. 

SET SLASH EXP_FLAG: Parse-time action to set the ordinal equal to 19 
to show tFat the operand was the complement(/ ) of a bit expression, 
update the hash value, OUR_CODE, by calling UPDATE_OUR_C0DE. 
SECOND EXP is set to signify that the second operand was an expression 
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LINE 



SOURCE 



FAA8 755C10 

FAAB 300202 

FAAE 055C 

FABO 5128 

FAB2 D203 

FAB4 754D02 

FAB7 22 



FAB8 755C14 

FABB 5128 

FABD 754D07 

FACO 22 



FACl 755C10 

FAC4 5128 

FAC6 D203 

FAC8 22 



FAC9 E4 

FACA A203 

FACC 33 

FACD A204 

FACF 33 

FADO 75F004 

FAD3 90FAD8 

FAD6 A4 

FAD7 73 

FAD8 754D01 



1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 



of some sort. 

SET_REL_FLAG: Parse-time action to set the ordinal equal to 22 to 
show that the operand was a relative off set ( EXP8 ) . The hash value, 
OUR_CODE, is updated by calling UPDATE_OUR_CODE . Set NUMBER_OF_BYTES 
equal to 4 to signify that it was a jump instruction with a relative 
operand. 

INPUTS: BIT_EXP, OUR_CODE_LOW, OUR_CODE_H I GH , FIRST_EXP, SECOND_EXP 

OUTPUTS: NUMBER_OF_BYTES, ORDINAL, FIRST_EXP, SECOND_EXP, OUR_CODE_LOW, 
OUR_CODE_HIGH 

VARIABLES MODIFIED: ORDINAL, FIRST_EXP, NUMBER_OF_B YTES , SECOND_EXP, 
A, C, B, DPTR 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: UPDATE OUR CODE 



• *****••••******••*■••*••****•********•***•**•**•***•****** 



t* ****** 



CHECK_AND_SET_EXP_FLAG: 

MOV ORDINAL, #10H 



NO BIT 



JNB 
INC 
8: 
CALL 
SETB 
MOV 
RET 



BIT_EXP,N0_BIT_8 
ORDINAL 

UPDATE_OUR_CODE 

FIRST_EXP 

NUMBER 0F_BYTES,#02H 



; In case no bit 8 
;Bit 8 occurance 



;Two bytes so far 
:Exit 



.******************************************************************* 



SET_EXP_16_FLAG: 

MOV ORDINAL, #14H 

CALL UPDATE_OUR CODE 

MOV NUMBER OF E'YTES,#07H 



;To signify an EXP16 instruction 



;First operand of an exrpession 



RET ;Exit 

.•**************•*************************************************** 

SET_EXP_FLAG: 

MOV 

CALL 

SETB 

RET 
.•***************•************************************************** 

CHECK_EXP_FLAG: 

CLR A 

MOV 

RLC 

MOV 

RLC 

MOV 

MOV 

MUL 

JMP 
EXP FLAG TABLE: 

MOV 



ORDINAL, #10H 
UPDATE_OUR_CODE 
FIRST EXP 



C,FIRST_EXP 

A 

C,SECOND_EXP 

A 

B,#04H 

DPTR,#EXP_FLAG_TABLE 

AB 

@A+DPTR 

NUMBER_0F_BYTES,#01H 



MCS-51 MACRO ASSEMBLER 



'SDK-51 ASSEMBLER/DISASSEMBLER INTEL PROPRIETARY VERS. #1.03 



8,12,81 



PAGE 



39 



LOG OBJ 



LINE 



SOURCE 



FADB 


22 


=1 1731 


FADC 


754D02 


=1 1732 


FADE 


22 


=1 1733 


FAEO 


754D02 


=1 1734 


FAE3 


22 


=1 1735 


FAE4 


754D03 


=1 1736 


FAE7 


22 


=1 1737 
=1 1738 
=1 1739 


FAE8 


755G12 


=1 1740 


FAEB 


5128 


=1 1741 


FAED 


D204 


=1 1742 


FAEF 


22 


=1 1743 
=1 1744 
=1 1745 


FAFO 


D204 


=1 1746 


.FAF2 


7410 


=1 1747 


|fAF4 


300201 


=1 1748 


TAF7 


04 


=1 1749 
=1 1750 


FAF8 


F55G 


=1 1751 


FAFA 


4128 


=1 1752 
=1 1753 
=1 1754 


FAFC 


755C13 


=1 1755 


FAFF 


5128 


=1 1756 


FBOl 


D204 


=1 1757 


FB03 


22 


-1 1758 
=1 1759 
=1 1760 


FB04 


755C16 


=1 1761 


FB07 


5128 


=1 1762 


FB09 


754D04 


=1 1763 


^FBOC 


22 


=1 1764 
=1 1765 



NUMBER_0F_BYTES,#02H 
NUMBER_0F_BYTES,#02H 
NUMBER OF BYTES, #03H 



;Exit 



RET 
MOV 
RET 
MOV 
RET 
MOV 
RET 

SET POUND_EXP_FLAG: 

MOV ORDINAL, #12H 

CALL UPDATE_OUR_CODE 

SETB SECOND_EXP 

RET ;Exit 

.•*****••*••**•****•**•*•**••***•*********************************** 

CHECK AND SET_SECOND_E XP_FLAG : 

~ SETB SECOND_EXP 

MOV A,#10H 

JNB BIT_EXP,SEC0ND_N0_BIT_8 
INC A 
SECOND NO BIT_8: 

~ MiyV ORDINAL, A 

JMP UPDATE_OUR_CODE 

.**•**•**•*•*•**•*•**•***•***•*•************************************* 

SET SLASH EXP_FLAG: 

~ MOV ORDINAL, #13H ;Complement of a bit expression 

CALL UPDATE_OUR_CODE 

SETB SECOND_EXP 

RET ;Exit 

.•**•**•*****•********•*******•******•*•***************************** 

SET_REL_FLAG: 

MOV ORDINAL, #16H ;Relative offset 

CALL UPDATE_OUR_CODE 

MOV NUMBER_0F_BYTES,#04H ;Jump instruction with relative operand 

RET ;Exit 



1765 +1 $EJECT 
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LOG OBJ 



LINE 







= 1 


1766 






= 1 


1767 






= 1 


1768 






= 1 


1769 






= 1 


1770 






= 1 


1771 






= 1 


1772 






= 1 


1773 






= 1 


1774 






= 1 


1775 






= 1 


1776 






= 1 


1777 






= 1 


1778 






= 1 


1779 






= 1 


1780 






= 1 


1781 






= 1 


1782 






= 1 


1783 






= 1 


1784 






= 1 


1785 






= 1 


1786 


FBOD 


75F02C 


= 1 


1787 


FBIO 


E548 


= 1 


1788 


FB12 


C3 


= 1 


1789 


FB13 


9490 


= 1 


1790 


FB15 


4025 


= 1 


1791 


FB17 


9408 


= 1 


1792 


FB19 


5021 


= 1 


1793 


FBIB 


E548 


= 1 


1794 


FBID 


C3 


= 1 


1795 


FBIE 


948C 


= 1 


1796 


FB20 


A4 


= 1 


1797 


FB21 


AFFO 


= 1 


1798 


FB23 


75F018 


= 1 


1799 


FB26 


A4 


= 1 


1800 


FB27 


254F 


= 1 


1801 


FB29 


F54F 


= 1 


1802 


FB2B 


E5F0 


= 1 


1803 


FB2D 


354E 


= 1 


1804 


FB2F 


F54E 


= 1 


1805 


FB31 


EF 


= 1 


1806 


FB32 


75F018 


= 1 


1807 


FB35 


A4 


= 1 


1808 


FB36 


254E 


= 1 


1809 


FB38 


F54E 


= 1 


1810 


FB3A 


8023 


= 1 


1811 






= 1 


1812 


FB3C 


7410 


= 1 


1813 


FB3E 


2440 


= 1 


1814 


FB40 


FF 


= 1 


1815 


FB41 


E548 


= 1 


1816 


FB43 


C3 


= 1 


1817 


FB44 


9F 


= 1 


1818 


FB45 


A4 


= 1 


1819 


FB46 


AFFO 


= 1 


1820 



SOURCE 
******************************************************************* 

NAME: GET_SECOND_EXP 

ABSTRACT: (#MNEMONI C_FACTOR* #OPERAND_FACTOR ) is added to the 

hash value, OUR_CODE. If the operand was a 'C, then OUR_CODE 
must be re-calculated to allow for a bit EXP8 instead of a byte 
EXP8. 

INPUTS: OUR_CODE_LOW, OUR_CODE_H IGH , TOKSTR 

OUTPUTS: OUR_CODE_LOW, OUR_CODE_HIGH 

VARIABLES MODIFIED: B, A, C, PARAM6, OUR_CODE_LOW, OUR_CODE_H IGH 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 

****************************************************************** 
GET SECOND OPERAND: 



iCheck if TOKSTR=REGISTER token(0-7) 



MOV 


B,#MNEMONIC FACTOR 


MOV 


A, TOKSTR 


CLR 


C 


SUBB 


A,#90H 


JC 


SECOND NOT REGISTER 


SUBB 


A,#08H 


JNC 


SECOND NOT REGISTER 


MOV 


A, TOKSTR 


CLR 


C 


SUBB 


A,#8CH 


MUL 


AB 


MOV 


PARAM6,B 


MOV 


B,#OPERAND FACTOR 


MUL 


AB 


ADD 


A. OUR CODE LOW 


MOV 


OUR CTTDE LTTW,A 


MOV 


A,B 


ADDC 


A, OUR CODE HIGH 


MOV 


OUR CUDE HIGH, A 


MOV 


A,PARAM6 


MOV 


B,#OPERAND FACTOR 


MUL 


AB 


ADD 


A, OUR CODE HIGH 


MOV 


OUR CTJDE HIGH, A 


SJMP 


OPERAND C 


^OT REGISTER: 


MOV 


A,#OFST 


ADD 


A,#REG 


MOV 


PARAM6,A 


MOV 


A, TOKSTR 


CLR 


C 


SUBB 


A,PARAM6 


MUL 


AB 


MOV 


PARAM6,B 
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m. 



LOG OBJ 

FB48 75F018 
FB4B A4 
FB4C 254F 
FB4E F54F 
FB50 E5F0 
FB52 354E 
FB54 F54E 
FB56 EF 
FB57 75F018 
FB5A A4 
FB5B 254E 
FB5D F54E 



FB5F E54E 

FB61 B43C08 

FB64 E54F 

FB66 B48F03 

B69 754FBB 



FB6C 22 



LINE 

1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 



SOURCE 



+ 1 



MOV 

MUL 

ADD 

MOV 

MOV 

ADDC 

MOV 

MOV 

MOV 

MUL 

ADD 

MOV 
OPERAND_C: 

MOV 

CJNE 

MOV 

CJNE 

MOV 
END SECOND_OPERAND: 

RET 
$EJECT 



B,#OPERAND_FACTOR 

AB 

A, OUR CODE LOW 

0UR_CITDE_LTTW,A 

A,B 

A, OUR CODE HIGH 

OUR_CUDE_HTGH,A 

A,PARAM6 

B,#OPERAND_FACTOR 

AB 

A,OUR_CODE_HIGH 

OUR CODE HIGH, A 



A,OUR_CODE_HIGH 
A,#03CH,END_SEC0ND_0PERAND 
A,OUR_CODE_LOW 
A,#08FH,END_SEC0ND_0PERAND 
OUR CODE_LOW,#OBBH 



;EXIT 
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LOG OBJ 



LINE 



SOURCE 



1842 +1 $INCLUDE(:F1:ASMA.INC 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 



This is the include file called ASMA.INC. It contains the 
following subroutines in order: 

CHECK_AND_CHANGE_ASM_PC 
CHANGE_TO_INSTRUCTION_OP 



1852 +1 $EJECT 
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LOG OBJ 



FB6D E54D 

FB6F 254C 

FB71 FA 

FB72 E4 

FB73 354B 

FB75 5006 

FB77 754313 

FB7A 02E05F 

FB7D F54B 

FB7F 8A4C 

FB81 22 



LINE 

1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 



SOURCE 



62 
63 



1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 



12 
33 
34 
35 +1 



■k*-ki(ic-k*-k 



ic*icieic**icicicicicicicic*ic*i(ic*ici(**ici(i(ici^icicicicicicic**i(icicic**iei(ic**icicic*icicic**icic*ic*i(icic-kic-k 



NAME: CHECK_AND_CHANGE_ASM_PC 

ABSTRACT: Change the ASM_PC according to NUMBER_OF_B YTES 
and check to make sure it does not wrap around. 

INPUTS: NUMBER_OF_BYTES, ASM_PC_LOW, ASM_PC_HIGH 

OUTPUTS: ASM_PC_LOW, ASM_PC_HIGH 

VARIABLES MODIFIED: A, PARAMl, ASM_PC_HIGH, ASM_PC_LOW, ERRNUM 

ERROR EXITS: 13H (ASM POOFFFH) 

SUBROUTINES ACCESSED DIRECTLY: ERROR 



•*•******• 



******************************************************************** 



CHECK AND CHANGE ASM PC: 



MOV 

ADD 

MOV 

CLR 

ADDC 

JNC 

MOV 

JMP 
CHANGE_ASM_PC_1 

MOV 

MOV 

RET 
$EJECT 



A,NUMBER_OF_BYTES 

A,ASM_PC_LOW 

PARAMl, A 

A 

A,ASM_PC_HIGH 

CHANGE_ASM_PC_1 

ERRNUM, #13H 

ERROR 

"asm_pc_high,a 

ASM PC LOW, PARAMl 



;Save to put in ASM_PC_LOW 

Add 1 to ASM_PC_HIGH if carry set 
Error if carry set after add 
ASM PC > OFFFH 



;Replace ASM_PC with new value 
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LOG OBJ 



LINE 



SOURCE 



= 1 


1886 ;* 


= 1 


1887 ; 


=1 


1888 ; 


=1 


1889 ; 


= 1 


1890 ; 


= 1 


1891 ; 


= 1 


1892 ; 


= 1 


1893 ; 


= 1 


1894 ; 


= 1 


1895 ; 


= 1 


1896 ; 


= 1 


1897 ; 


= 1 


1898 ; 


=1 


1899 ; 


= 1 


1900 ; 


= 1 


1901 ; 


= 1 


1902 ; 


= 1 


1903 ; 


= 1 


1904 ; 


=1 


1905 ; 


= 1 


1906 ; 


= 1 


1907 ; 


=1 


1908 ; 


= 1 


1909 ; 


= 1 


1910 ; 


= 1 


1911 ; 


=1 


1912 ; 


= 1 


1913 i 


= 1 


1914 ; 


=1 


1915 ; 


= 1 


1916 ; 


= 1 


1917 ; 


= 1 


1918 ; 


= 1 


1919 ; 


= 1 


1920 ; 


=1 


1921 ; 


= 1 


192 2 ; 


=1 


1923 i 


= 1 


1924 ; 


= 1 


1925 ; 


= 1 


1926 ; 


=1 


1927 ; 


= 1 


1928 


= 1 


1929 ; 


= 1 


1930 ; 


= 1 


1931 ; 


=1 


1932 ; 


= 1 


1933 ; 


=1 


1934 ; 


= 1 


1935 ; 


=1 


1936 ; 


= 1 


1937 ; 


=1 


1938 ; 


= 1 


1939 ; 


=1 


1940 ; 



********************************************* 



********************************** 

NAME: CHANGE_TO_INSTRUCTION_OP 

ABSTRACT: Run time action used to process the one, two or three bytes of 
the assembled instruction and write it out to memory. The assembly 
program counter (ASM_PC) is updated according to the number of bytes 
in the instruction. A case statement will take care of all the 
different types of instructions. The byte(s) of the instruction are 
stored in the appropriate order in a working area, WORKING_SPACE (3). 
The opcode is always put in the fist byte. If the instruction is 
other than a one byte instruction, the other bytes are obtained from 
VALLOW, VALHGH or TEMP_SEC as necessary. NUMBER_OF_BYTES is updated 
to reflect the number of bytes in the instruction to be written out 
to memory and the ASM_PC is updated. The individual cases are as 
f ol 1 ows: 

Case 1: One byte instructions (ex. NOP) 

Case 2: Two byte instructions (ex. MOV R7,#DATA) 
Put expression in second byte. 

Case 3: Three byte instructions (ex. MOV EXP8,#EXP) 
Put the first expression in the second byte, 
put the second expression in the third byte. 

Case 4: Jump instruction with one relative operand (ex. JC REL. OPER.) 
Calculate the relative offset and put it in the second byte. 

Case 5: Jump instruction with an expression as the first operand 
and a relative operand as the second operand 
(ex. JNB EXP8,REL. OPER.) 

Put the expression in the second byte, calculate the relative 
offset and put it in the third byte. 

Case 6: Absolute call or jump instruction (ex. ACALL EXPll). 

Calculate the 2K jump or call and incorporate it into the 
opcode. Put the lower 8 bits of EXPll in the second byte. 

Case 7: Long jump or call instruction or MOV DPTR,EXP16 
(ex. LJMP EXP16). 

The high byte of EXP16 is put in the second byte. The low 
byte of EXP16 is put in the third byte. 

INPUTS: VALHGH, VALLOW, TEMP_SEC, INSTRUCTION_VALUE 

OUTPUTS: Memory at address of ASM_PC 

VARIABLES MODIFIED: NUMBER OF BYTES, REL_OFFSET_LOW, REL_OFFSET_HIGH , 
A, ERRNUM, OLD ASM PC HTGHT 0LD_ASM_PC_L0W , POINTO. TEMP_SEC, C, 
TEMP_LOW, SELECT, PNTLOW, PNTHGH, ASM_PC_HIGH, ASM_PC_LOW 

ERROR EXITS: lOH (ASSEMBLY SYNTAX) 

IIH (ADDRESS OUT OF RANGE-11 BIT ABSOLUTE OFFSET) 
12H (ADDRESS OUT OF RANGE-8 BIT RELATIVE OFFSET) 
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LOG OBJ 



LINE 



SOURCE 



m 



m 







= 1 


1941 










= 1 


1942 


SUBROUTINES 






= 1 


1943 










= 1 


1944 


***••*••*•••*** 






= 1 


1945 CHANGE 


TO INSTRU 


FB82 


854B5D 


= 1 


1946 




' MOV 


FB85 


854C5E 


= 1 


1947 




MOV 


FB88 


E54D 


= 1 


1948 




MOV 


FB8A 


B40109 


= 1 


1949 




CJNE 


FB8D 


716D 


= ] 


1950 




CALL 


FB8F 


7840 


= ] 


1951 




MOV 


FB91 


A65F 


= ] 


1952 




MOV 


FB93 


02FCD4 


= ] 


1953 




JMP 






= 1 


1954 


:hange_ 


CASE 2: 


FB96 


B4020C 




L 1955 




" CJNE 


FB99 


716D 


= ; 


1956 




CALL 


kFB9B 


7840 


= ] 


1957 




MOV 


rFB9D 


A65F 


= ] 


L 1958 




MOV 


FB9F 


08 


= ; 


L 1959 




INC 


FBAO 


A64A 


= 


L 1960 




MOV 


FBA2 


02FCD4 


= : 


1961 




JMP 








L 1962 


:hange_ 


CASE 3: 


FBA5 


B4031B 


= 


L 1963 




" CJNE 


FBA8 


716D 


= : 


L 1964 




CALL 


FBAA 


7840 


= ■ 


L 1965 




MOV 


FBAC 


A65F 


= 


L 1966 




MOV 


FBAE 


E55F 


= 


L 1967 




MOV 


FBBO 


B48506 


= 


L 1968 




CJNE 


FBB3 


E562 


= 


L 1969 




MOV 


FBB5 


C54A 


= 


I 1970 




XCH 


FBB7 


F562 


= 


L 1971 




MOV 






= 


I 1972 


CASE_3_ 


MORE: 


FBB9 


7841 


= 


I 1973 




MOV 


|FBBB 


A662 


= 


L 1974 




MOV 


'fbbd 


08 


= 


I 1975 




INC 


FBBE 


A64A 


= 


1 1976 




MOV 


FBCO 


02FCD4 


= 


1 1977 




JMP 






= 


1 1978 


change. 


CASE 4: 


FBC3 


B40460 


= 


1 1979 




CJNE 


FBC6 


754312 


= 


1 1980 




MOV 


FBC9 


754D02 


= 


1 1981 




MOV 


FBCC 


716D 


= 


1 1982 




CALL 


FBCE 


854A61 


= 


1 1983 




MOV 


FBDl 


854960 


= 


1 1984 




MOV 


FBD4 


E560 


= 


1 1985 




MOV 


FBD6 


B54B03 


= 


1 1986 




CJNE 


FBD9 


02FBE1 


= 


1 1987 




JMP 






= 


1 1988 


CHANGE. 


CASE 4A: 


FBDC 


4024 


= 


1 1989 




~ JC ~ 


FBDE 


02FBE8 


= 


1 1990 




JMP 






= 


1 1991 


change 


CASE 4AA: 


kFBEl 


E561 


= 


1 1992 




MOV 


rFBE3 


B54C00 


= 


1 1993 




CJNE 






= 


1 1994 


CHANGE 


CASE 4C: 


FBE6 


401A 


= 


1 1995 




JC 



ESSED DIRECTLY: CHECK_AND_CHANGE_ASM_PC , ERROR 

CTION_OP: 

OLD ASM PC HIGH, ASM PC HIGH 

OLD~ASM~PC_LOW,ASM_P'C_rOW 

A,NUMBER_OF_BYTES 

A,#01H,CHANGE_CASE_2 ;Change case 1 

CHECK_AND_CHANGE_ASM_PC ;Update ASM PC 

POINTO,#WORKING SPACE ;Get opcode 

0POINTO, INSTRUCTION 

CHANGE END 



A,#02H,CHANGE_CASE_3 

CHECK_AND_CHANGE_ASM_PC 

POINTO,#WORKING_SPACE 

@POINTO, INSTRUCTION 

POINTO 

(9P0INT0,VALL0W 

CHANGE_END 

A,#03H,CHANGE_CASE_4 

CHECK AND CHANGE_ASM_PC 

P0INTTT,#WITRKING_SPACE 

(3P0INT0, INSTRUCTION 

A, INSTRUCTION 

A,#85H,CASE_3_M0RE 

A,TEMP_SEC 

A.VALLOW 

TEMP_SEC,A 

P0INT0,#(W0RKING_SPACE+1) 

@P0INT0,TEMP_SEC 

POINTO 

@POINTO,VALLOW 

CHANGE_END 

A,#04H,CHANGE_CASE_5 
ERRNUM,#12H 

number_0f_bytes,#02h 

check_and_change_asm_pc 

rel_offset_low,vallow 

rel_offset_high,valhgh 

a,rel_offset_high 

a,asm_pc_high,change_case_4a 

change_case_4aa 

backward_jump_case 4 
forward_jump_case_? 

'a,rel_offset_low 
a,asm_pc_l0w,change_case_4c 

backward jump case 4 



;Put opcode in 1st byte 



;Put opcode in 1st byte 



;Adr out of range-8 bit 
;2 byte instruction 

;Move value into relative offset 



;Jump if rel. offset if < ASM_PC 
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LOC OBJ 




LINE 


SOURCE 








= 1 


1996 


FORWARD 


JUMP CASE 4: 


FBE8 C3 


= 1 


1997 




CLR 


C 


FBE9 E561 


= 1 


1998 




MOV 


A,REL OFFSET LOW 


FBEB 954C 


= 1 


1999 




SUBB 


A, ASM PC LOW 


FBED F561 


= 1 


2000 




MOV 


REL OFFSET LOW, A 


FBEF E560 


= 1 


2001 




MOV 


A,REL OFFSET HIGH 


FBFl 954B 


= 1 


2002 




SUBB 


A,ASM~PC HIGH 


FBF3 7067 


= 1 


2003 




JNZ 


CHANGE ERROR 


FBF5 747F 


= 1 


2004 




MOV 


A,#7FH 


FBF7 B56100 


= 1 


2005 




CJNE 


A,REL_0FFSET_L0W,CHANGE_CASE_4D 




= 1 


2006 


CHANGE_ 


CASE 4D: 




FBFA 4060 


= 1 


2007 




" JC 


CHANGE ERROR 


FBFC 7841 


= 1 


2008 




MOV 


POINTO,#(WORKING SPACE+1) 


FBFE A661 


= 1 


2009 




MOV 


0POINTO,REL OFFSET LOW 


FCOO 801D 


= 1 


2010 




SJMP 


CHANGE CASE 4 END 




= 1 


2011 










= 1 


2012 


BACKWARD JUMP CASE 4: 


FC02 C3 


= 1 


2013 




CLR 


C 


FC03 E54C 


= 1 


2014 




MOV 


A, ASM PC LOW 


FC05 9561 


= 1 


2015 




SUBB 


A, REL OFFSET LOW 


FC07 F561 


= 1 


2016 




MOV 


REL OFFSET LD'W.A 


FC09 E54B 


= 1 


2017 




MOV 


A, ASM PC HIGH 


FCOB 9560 


= 1 


2018 




SUBB 


A,REL~OFFSET HIGH 


FOOD F560 


= 1 


2019 




MOV 


REL OFFSET HIGH, A 


FCOF 704B 


= 1 


2020 




JNZ 


CHANGE ERRUR 


FCll 7480 


= 1 


2021 




MOV 


A,#80H~ 


FC13 B56100 


= 1 


2022 




CJNE 


A,REL_0FFSET_L0W,CHANGE_CASE_4F 




= 1 


2023 


CHANGE_ 


CASE 4F: 




FC16 4044 


= 1 


2024 




" JC 


CHANGE ERROR 


FC18 7841 


= 1 


2025 




MOV 


P0INT0,#(W0RKING SPACE+1) 


FCIA E561 


= 1 


2026 




MOV 


A, REL OFFSET LOW 


FCIC F4 


= 1 


2027 




CPL 


A 


FCID 04 


= 1 


2028 




INC 


A 


FCIE F6 


_ 1 


2029 
2030 




MOV 


(apOINTO.A 




= 1 


2031 


CHANGE_ 


CASE 4 END: 


FCIF 7840 


^1 


2032 




" MOV 


POINTO,#WORKING SPACE 


FC21 A65F 


= 1 


2033 




MOV 


PPOINTO, INSTRUCTION 


FC23 02FCD4 


= 1 


2034 




JMP 


CHANGE_END 




= 1 


2035 


CHANGE_ 


CASE 5: 




FC26 B4056D 


= 1 


2036 




" CJNE 


A, #05H, CHANGE CASE 6 


FC29 754312 


= 1 


2037 




MOV 


ERRNUM,#12H 


FC2C 754D03 


= 1 


2038 




MOV 


NUMBER OF BYTES, #03H 


FC2F 716D 


= 1 


2039 




CALL 


CHECK AND CHANGE ASM PC 


FC31 7840 


= 2 


2040 




MOV 


P0INT0,#W0RKING SPACE 


FC33 A65F 


= 1 


2041 




MOV 


@P0INT0, INSTRUCTION 


FC35 854A61 


= 1 


2042 




MOV 


REL OFFSET LOW,VALLOW 


FC38 854960 


= 1 


2043 




MOV 


REL OFFSET HIGH,VALHGH 


FC3B E560 


= 1 


2044 




MOV 


A, REL OFFSET HIGH 


FC3D B54B03 


= 1 


2045 




CJNE 


A, ASM PC HIGH, CHANGE CASE 5A 


FC40 02FC48 


= 1 


2046 




JMP 


CHANGE_CASE_5AA 




= 1 


2047 


CHANGE, 


CASE 5A: 




FC43 402D 


= 1 


2048 




JC 


BACKWARD JUMP CASE 5 


FC45 02FC4F 


= 1 


2049 




JMP 


FORWARD JUMP CASE 5 




= 1 


2050 


CHANGE 


CASE 5AA: 



;Subtract ASM_PC from relative offset 
; Error if relative offset > OFFH 



;Error if relative offset > 7FH 
;Move offset into WORKING_SPACE (1] 



;Subtract rel. offset from ASM_PC 
;Error if relative offset > OFFH 

;Error if relative offset is > BOH 

;Move REL_OFFSET_LOW into WORKING_SPACE 

;Move 8-bit inst into WORKING_SPACE (1) 

;Adr out of range - 3 bit 
;3 byte instruction 
;Update ASM PC 

;Move instruction into WORKING_SPACE (0) 
;Move value into relative offset 
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LOG 


OBJ 




LINE 


SOURCE 






FC48 


E561 


= 1 


2051 




MOV 


A,REL OFFSET LOW 


FC4A 


B54C00 


= 1 


2052 




CJNE 


A,ASM_PC_L0W,CHANGE_CASE_5C 






= 1 


2053 


CHANGE_ 


CASE 5C 




FC4D 


4023 


= 1 


2054 




" JC 


BACKWARD JUMP CASE 5 






= ] 


2055 


FORWARC 


) JUMP CASE 5: 


FC4F 


C3 


= ] 


2056 




CLR 


C 


FC50 


E561 


= ] 


2057 




MOV 


A,REL OFFSET LOW 


FC52 


954C 


= ] 


2058 




SUBB 


A, ASM PC LOW 


FC54 


F561 


= ] 


2059 




MOV 


REL OFFSET LOW, A 


FC56 


E560 


= ] 


2060 




MOV 


A,REL OFFSET HIGH 


FC58 


954B 




L 2061 
L 2062 




SUBB 


A,ASM_PC_HIGH 


FC5A 


6009 




[ 2063 




JZ 


FJC_5_C0NTINUE 








L 2064 


CHANGE_ 


ERROR: 




FC5C 


855D4B 


= 


L 2065 




MOV 


ASM PC HIGH, OLD ASM PC HIGH 


FC5F 


855E4C 


= 


L 2066 




MOV 


ASM PC LOW, OLD ASM PC LOW 


FC62 


02E05F 


= 


L 2067 




JMP 


ERROR 






= 


L 2068 


FJC 5 CONTINUE 




FC65 


747F 


= 


L 2069 




MOV 


A,#7FH 


FC67 


B56100 


= 


L 2070 




CJNE 


A,REL_OFFSET_LOW,CHANGE_CASE 






= ; 


L 2071 


CHANGE_ 


CASE 5D 




FC6A 


40F0 


= 


L 2072 




JC 


CHANGE ERROR 


FC6C 


7842 


= 


L 2073 




MOV 


POINTO,#(WORKING SPACE+2) 


FC6E 


A661 


= 


L 2074 




MOV 


(aP0INT0,REL OFFSET LOW 


FC70 


801D 


_ 


L 2075 
L 2076 




SJMP 


CHANGE_CASE_5_END 






= 


L 2077 


BACKWARD JUMP 


:ASE 5: 


FC72 


C3 


= 


L 2078 




CLR 


C 


FC73 


E54C 


= 


L 2079 




MOV 


A, ASM PC LOW 


FC75 


9561 


= 


L 2080 




SUBB 


A, REL OFFSET LOW 


FC77 


F561 


= 


L 2081 




MOV 


REL OFFSET LTTW,A 


FC79 


E54B 


= 


L 2082 




MOV 


A, ASM PC HIGH 


FC7B 


9560 


= 


L 2083 




SUBB 


A, REL OFFSET HIGH 


FC7D 


F560 


= 


L 2084 




MOV 


REL OFFSET HIGH, A 


FC7F 


70DB 


= 


L 2085 




JNZ 


CHANGE ERROR 


FC81 


7480 


= 


L 2086 




MOV 


A,#80H~ 


FC83 


B56100 


= 


L 2087 




CJNE 


A,REL_OFFSET_LOW,CHANGE_CASE 






= 


1 2088 


CHANGE, 


CASE 5F 




FC86 


40D4 


= 


I 2089 




JC 


CHANGE ERROR 


FC88 


7842 


= 


L 2090 




MOV 


POINTO,#(WORKING SPACE+2) 


FC8A 


E561 


= 


L 2091 




MOV 


A, REL OFFSET LOW 


FC8C 


F4 


= 


I 2092 




CPL 


A 


FC8D 


04 


= 


I 2093 




INC 


A 


FC8E 


F6 


= 


1 2094 




MOV 


@POINTO,A 






= 


1 2095 


CHANGE, 


CASE 5 


END: 


FC8F 


7841 


= 


I 2096 




MOV 


POINTO,#(WORKING SPACE+1) 


FC91 


A662 


= 


1 2097 




MOV 


(aP0INT0,TEMP SEC 


FC93 


02FCD4 


= 


1 2098 




JMP 


CHANGE_END 






= 


1 2099 


CHANGE_ 


CASE 6: 




FC96 


B40626 


= 


1 2100 




" CJNE 


A, #06H, CHANGE CASE 7 


FC99 


754D02 


= 


1 2101 




MOV 


NUMBER OF BYTES, #02H 


lFC9C 


716D 


= 


1 2102 




CALL 


CHECK JUD CHANGE ASM PC 


IFC9E 


E549 


= 


1 2103 




MOV 


A,VALHGH 


FCAO 


54F8 


= 


1 2104 




ANL 


A,#0F8H 


FCA2 


F547 


= 


1 2105 




MOV 


TEMP LOW, A 



;Subtract ASM_PC from dest. addr 
;and place in relative offset 
;Error if relative offset < OFFH 



5D 



;Error if relative offset < 07FH 

;Move REL OFFSET LOW into WORKING SPACE 



;Subtract relative offset from ASM_PC 
;and store in relative offset 
;Error if relative offset > OFFH 



5F 



;Error if rel ati ve off set > 080H 

;Move REL_OFFSET_LOW into WORKING_SPACE 
;Move TEMP_LOW into WORKING_SPACE (1) 



;2 byte instruction 

;Move value into TEMP 

;Use 3 top bits of 11 to determine 

;which 2k page JMP or CALL it is 
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LOG OBJ 




LINE 


SOURCE 






FCA4 74F8 


_ -^ 


2106 




MOV 


A,#0F8H 


FCA6 554B 


= 1 


2107 




ANL 


A, ASM PC HIGH 


FCA8 754311 


= 1 


2108 




MOV 


ERRNUM,#11H -J 


FCAB B547AE 


= 1 


2109 




CJNE 


A, TEMP LOW, CHANGE ERROR 


FCAE 7840 


= 1 


2110 




MOV 


POINTO,#WORKING SPACE 


FCBO E549 


= 1 


2111 




MOV 


A,VALHGH ; 


FCB2 5407 


= 1 


2112 




ANL 


A,#07H 


FCB4 C4 


= 1 


2113 




SWAP 


A 


FCB5 23 


= 1 


2114 




RL 


A ; 


FCB6 255F 


= 1 


2115 




ADD 


A, INSTRUCTION 


FCB8 F6 


= 1 


2116 




MOV 


0POINTO,A ; 


FCB9 08 


= 1 


2117 




INC 


POINTO 


FCBA A64A 


= 1 


2118 




MOV 


(aP0INT0,VALL0W ; 


FCBC 02FCD4 


= 1 


2119 




JMP 


CHANGE_END ; 




= 1 


2120 


CHANGE_ 


CASE 7: 




FCBF 754310 


= 1 


2121 




" MOV 


ERRNUM,#10H ; 


FCC2 B40797 


= 1 


2122 




CJNE 


A, #07H, CHANGE ERROR ; 


FCC5 754D03 


= 1 


2123 




MOV 


NUMBER OF BYTES, #03H ; 


FCC8 716D 


= 1 


2124 




CALL 


CHECK 7^ND"CHANGE ASM PC 


FCCA 7840 


= 1 


2125 




MOV 


POINTO, ^WORKING SPACE 


FCCC A65F 


= 1 


2126 




MOV 


PPOINTO, INSTRUCTION ; 


FCCE 08 


= 1 


2127 




INC 


POINTO 


FCCF A649 


= 1 


2128 




MOV 


@POINTO,VALHGH ; 


FCOl 08 


= 1 


2129 




INC 


POINTO 


FCD2 A64A 


= 1 


2130 




MOV 


@POINTO,VALLOW ; 




= 1 


2131 


CHANGE_ 


END: 




FCD4 754600 


= 1 


2132 




■ MOV 


SELECT, #00H ; 


FCD7 855E45 


= 1 


2133 




MOV 


PNTLOW,OLD ASM PC LOW 


FCDA 855D44 


= 1 


2134 




MOV 


PNTHGH,OLD ASM PC HIGH ; 


FCDD 855E4C 


= 1 


2135 




MOV 


ASM PC L0W70LD~ASM PC LOW 


FCEO 855D4B 


= 1 


2136 




MOV 


ASM PC HIGH, OLD ASM PC HIGH 


FCE3 7840 


= 1 


2137 




MOV 


PO I]TT07#W0R K I NG_S PATTE 




= 1 


2138 


CHANGE_ 


END LOOP 




FCE5 E6 


= 1 


2139 




" MOV 


"a,@POINTO ; 


FCE6 FA 


= 1 


2140 




MOV 


PARAM1,A 


FCE7 12E04D 


= 1 


2141 




CALL 


STORE 


FCEA 08 


= 1 


2142 




INC 


POINTO 


FCEB 0545 


= 1 


2143 




INC 


PNTLOW 


FCED E545 


= 1 


2144 




MOV 


A,PNTLOW 


FCEF 7002 


= 1 


2145 




JNZ 


CHANGE END A 


FCFl 0544 


= 1 


2146 




INC 


PNTHGH 




= 1 


2147 


CHANGE_ 


END A: 




FCF3 D54DEF 


= 1 


2148 




" DJTTZ 


NUMBER OF BYTES, CHANGE END_LOOP 




= \ 


2149 






; 


FCF6 85454C 


= 1 


2150 




MOV 


ASM PC LOW, PNTLOW 


FCF9 85444B 


= 1 


2151 




MOV 


ASM~PCIHIGH, PNTHGH 


FCFC 22 


= 1 


2152 
2153 +1 


$EJECT 


RET 


' 



Adr out of range (11 bit) 

TEMP HIGH <= 07 

TEMP_HIGH now rotated right 3X 

Put result in W0RKING_SPACE (0) 

TEMP_LOW stored in WORKING_SPACE (1) 
truncates to 8 bits 

Assembly syntax 

Error if orig NUMBER_OF_BYTES > 7 

3 byte instruction 

Store instruction in WORKING_SPACE (0) 
Store VALH6H in W0RKING_SPACE (1) 
Store VALLOW in WORKING_SPACE (2) 
Select external ROM 
Load pointer for store 

,Parameter to be stored 



Store until NUMBER_OF_BYTES=0 
End of change routine 
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LOG OBJ 



LINE SOURCE 



2154 +1 $INCLUDE(:F1:SDKDSM.INC) 
=1 2155 +1 $EJECT 
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LOG OBJ 



FCFD 12E056 
FDOO 12E065 
FD03 12E06E 

FD06 12E00F 
FD09 AA57 
FDOB AB58 
FOOD 12E018 
FDIO 7A3D 
FD12 12E006 
35586A 
355769 
7900 



FD15 
FDIS 
FDIB 



FDID E9 
FDIE B40300 



FD21 
FD23 
FD25 
FD26 
FD28 
FD2B 
FD2D 
FD2F 
FD32 
FD35 
FD37 
FD39 
FD3A 



501D 

E558 

29 

F545 

855744 

5002 

0544 

754600 

12E04A 

F547 

7440 

29 

F8 



= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 



LINE 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2 J 95 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 



SOURGE 

NAME: DISASSEMBLY_CMD 

ABSTRACT: This routine gets a token and partition and displays 
<address>=. It then gets a byte of memory from code memory, 
searches the hash table for a match to that byte and d issassembl es 
it if one i s found. 

INPUTS: None 

OUTPUTS: None 

VARIABLES MODIFIED: PARAMl, PARAM2, MEMOR Y_TRAC E_ADDR_LOW , 
MEMORY TRACE_ADDR_HIGH, A, POINTl, PNTLOW, PNTHGH, SELECT, 
TEMP_LOW, POINTO, PART I T_LO_H I GH 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: GETOKE, GET_PART, EOL_CHECK, 
NEWLINE, LSTWRD, CO, FETCH, GET_HASH_VALUE , DISASSEMBLE, 
CONTINUATION LINE, WAI T_FOR_USER 



DISASSEMBLY_CMD: 

CALL GETOKE 
CALL GET_PART 
CALL EOL CHECK 



k-k-k**************** 



DSO: 



DS4: 
DSl: 



DS3: 



CALL NEWLINE 

MOV PARAM1,PARTIT_L0_HIGH 

MOV PARAM2,PARTIT_L0_L0W 

CALL LSTWRD 

MOV PARAMl, #'=' 

CALL CO 

MOV MEMORY_TRACE_ADDR_LOW,PARTIT__LO_LOW 

MOV MEMORY_TRACE_ADDR_HIGH,PARTIT_LO_HIGH 

MOV POINTl, #00H 



MOV A, POINTl 

CJNE A,#03H,DS1 

JNC DS2 

MOV A,PARTIT_LO_LOW 

ADD A, POINTl 

MOV PNTLOW, A 

MOV PNTHGH,PARTIT_LO_HIGH 

JNC DS3 

INC PNTHGH 

MOV SELECT, #(CBYTE_TOKE AND 07H) 

CALL FETCH 

MOV TEMP_LOW,A 

MOV A,#WORKING_SPACE 

ADD A, POINTl 

MOV POINTO, A 



;Di splay Adr = to console 



;Get a byte from code memory 
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LOC OBJ 

FD3B A647 
FD3D 09 
FD3E 80DD 
FD40 12FD63 
FD43 12FF84 
FD46 C558 
FD48 254D 
FD4A C558 
FD4C 5002 
FD4E 0557 
FD50 C3 
FD51 E55A 
FD53 9558 

FD55 E559 

>FD57 9557 

FD59 4005 

FD5B 12E068 

FD5E 80A6 

FD60 02E062 



LINE 



SOURCE 



1 2211 




MOV 


(BPOINTO,TEMP LOW 


1 2212 




INC 


POINTl 


1 2213 




JMP 


DS4 


1 2214 


DS2: 


CALL 


GET HASH VALUE 


1 2215 




CALL 


DISASSEMBLE 


1 2216 




XCH 


A,PARTIT LO LOW 


1 2217 




ADD 


A, NUMBER OF BYTES 


1 2218 




XCH 


A,PARTIT LO LOW 


1 2219 




JNC 


DS5 


1 2220 




INC 


PARTIT LO HIGH 


1 2221 


DS5: 


CLR 


C 


1 2222 




MOV 


A, PARTIT HI LOW 


1 2223 




SUBB 


A,PARTIT"LO_LOW 


1 2224 
1 2225 




MOV 


A, PARTIT HI HIGH 


1 2226 




SUBB 


A,PARTIT_LO_HIGH 


1 2227 








=1 2228 




JC 


DSRET 


=1 2229 




CALL 


CONTINUATION LINE 


=1 2230 




JMP 


DSO 


=1 2231 


DSRET: 


JMP 


WAIT FOR USER 


=1 2232 +1 


$EJECT 







iSearch hash table for match 



;Subtract actual partition address low 
;From ending address and carry borrow 

;Subtract actual partition address high 
;From ending address high 
;Exit if carry generated 
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LOG OBJ 



FD63 E540 

FD65 B4A506 

FD68 75430F 

FD6B 02E05F 



FD6E 
FD71 
FD72 
FD73 
FD75 
FD77 
FD79 
FD7A 
FD7C 
FD7E 
FD80 
FD81 
FD83 
FD86 
FD89 
FD8C 
FD8E 
FD90 
FD92 
FD94 
FD97 
FD98 
FD9A 
FD9D 
FD9E 



90F5B3 

C3 

33 

5002 

0583 

F547 

93 

F54E 

0547 

E547 

93 

F54F 

75702C 

854E6E 

854F6F 

31B4 

AE72 

AF71 

E572 

75F02C 

A4 

F572 

85F071 

EF 

75F02C 



= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 



LINE 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 



SOURCE 
t********************************* ******************************** 

NAME: GET_HASH_VALUE 

ABSTRACT: This routine takes the hash value in OUR_CODE and 

divides it into one the 4 ordinals. They are MNEMONI C_ORDIN AL, 
FIRST_OPER_ORDINAL, SE COND_OPER_ORD INAL and THI RD_OPER_ORDIN AL. 

INPUTS: WORKING_SPACE 

OUTPUTS: MNEMONIC_ORDINAL, FIRST_OPER_ORDIN AL, SECOND_OPER_ORDIN AL, 
THIRD_OPER_ORDINAL 

VARIABLES MODIFIED: A, ERRNUM, DPTR, C, TEMP_LOW, OUR_CODE_LOW , 
OUR CODE HIGH, DIVISOR, D I V IDEND_H IGH , D I V IDEND_LOW, PARAM5, 
PARAM6, B, QUOTIENT_LOW, QUOTI ENT_H IGH , MNEMONI C_ORDINAL , 
NUMBER OF_OPERANDS, FI RST_OPER_ORDINAL , SECOND_OPER_ORD IN AL, 
OPERAND_CHECK, NUMBER_OF_BYTES , TH IRD_OPER_ORDIN AL 

ERROR EXITS: OFH (UNDEFINED OPCODE) 

SUBROUTINES ACCESSED DIRECrLY: ERROR, START_DI V IDE , OPERAND_BYTE_CHECK 

**********************************•*********■«<•****■***************** 
GET_HASH_VALUE: 

MOV 

CJNE 

MOV 

JMP 
HASH_CONTINUE: 

MOV 

CLR 

RLC 

JNC 

INC 

MOV 

MOVC 

MOV 

INC 

MOV 

MOVC 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

MUL 

MOV 

MOV 

MOV 

MOV 



GHV Al; 



A,WORKING_SPACE 

A,#UNDEFINED_OPCODE,HASH_CONTINUE 
ERRNUM, #OFH 
ERROR 

DPTR,#INSTRUCTION_CODE 

C 

A 

GHV_A1 

DPH 

TEMP_LOW,A 

A,@A+DPTR , 

OUR_CODE_HIGH,A 

TEMP LOW 

A,TEHP_L0W 

A,(aA+DPTR 

OUR_CODE_LOW,A 

DIVISOR,#MNEMONIC_FACTOR 

DIVIDEND_HIGH,OUR CODE_HIGH 

DIVIDEND LOW,OUR_irODE_LOW 

START_DIYIDE 

PARAM5,QU0TIENT_L0W 

PARAM6,QU0TIENT_HIGH 

A,QUOTIENT_LOW 

B,#MNEMONIC_FACTOR 

AB 

QUOTIENT_LOW,A 

QUOTIENT_HIGH,B 

A,PARAM6 

B,#MNEMONIC FACTOR 



Memory containing opcode to be 
di sassembl ed 
Undefined opcode 



;Starting adr of hash tbl 
;Multiply pointer by two 
;Increment DPH if rotate overflows 



lOrdinal of hashed value 
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LOG 


OBJ 


FDAl 


A4 


FDA2 


2571 


FDA4 


F571 


FDA6 


E54F 


FDA8 


C3 


FDA9 


9572 


FDAB 


F56D 


FDAD 


8F4E 


FDAF 


8E4F 


FDBl 


E54F 


FDB3 


700A 


FDB5 


E54E 


FDB7 


7006 


FDB9 


756B00 


FDBC 


02FE17 


Idbf 


757018 


?DC2 


854E6E 


FDC5 


854F6F 


FDC8 


31B4 


FDCA 


AE72 


FDCC 


AF71 


EDGE 


E572 


FDDO 


75F018 


FDD3 


A4 


FDD4 


F572 


FDD6 


85F071 


FDD9 


EF 


FDDA 


75F018 


FDDD 


A4 


FDDE 


2571 


FDEO 


F571 


IIDE2 


E54F 


■ dE4 


C3 


?DE5 


9572 


FDE7 


F563 


FDE9 


B40F03 


FDEC 


02FDF1 


FDEF 


5002 


FDFl 


1563 


FDF3 


8F4E 


FDF5 


8E4F 


FDF7 


E54F 


FDF9 


700A 


FDFB 


E54E 


FDFD 


7006 


FDFF 


756B01 


|E02 


02FE17 


?E05 


854F64 


FE08 


E564 


FEOA 


B40F03 



LINE 



SOURCE 



1 2288 


MUL 


AB 


1 2289 


ADD 


A, QUOTIENT HIGH 


1 2290 


MOV 


QUOTIENT HIGH, A 


1 2291 


MOV 


A, OUR COUE LOW 


1 2292 


CLR 


C 


1 2293 


SUBB 


A, QUOTIENT LOW 


1 2294 


MOV 


MNEMONIC 0]rDINAL,A 


1 2295 


MOV 


OUR CODE HIGH,PARAM6 


1 2296 


MOV 


OUR CODE L0W,PARAM5 


1 2297 


MOV 


A, OUR COTIE LOW 


1 2298 


JNZ 


GHVl 


1 2299 


MOV 


A, OUR CODE HIGH 


1 2300 


JNZ 


GHVl 


1 2301 


MOV 


NUMBER OF OPERANDS , #00H 


1 2302 


JMP 


GHV9 


1 2303 GHVl: 




1 2304 


MOV 


DIVISOR, #OPERAND FACTOR 


1 2305 


MOV 


DIVIDEND HIGH, OUR CODE HIGH 


1 2306 


MOV 


DIVIDEND LOW, OUR ITODE UOW 


1 2307 


CALL 


START DIVIDE 


1 2308 


MOV 


PARAM"^, QUOTIENT LOW 


1 2309 


MOV 


PARAM6, QUOTIENT HIGH 


1 2310 


MOV 


A, QUOTIENT LOW 


1 2311 


MOV 


B,#OPERAND FACTOR 


1 2312 


MUL 


AB 


1 2313 


MOV 


QUOTIENT LOW, A 


1 2314 


MOV 


QUOTIENT HIGH,B 


1 2315 


MOV 


A,PARAM6 


1 2316 


MOV 


B,#OPERAND FACTOR 


1 2317 


MUL 


AB 


1 2318 


ADD 


A, QUOTIENT HIGH 


1 2319 


MOV 


QUOTIENT HIGH, A 


1 2320 


MOV 


A, OUR CODE LOW 


1 2321 


CLR 


C 


1 2322 


SUBB 


A, QUOTIENT LOW 


1 2323 


MOV 


FIRST OPER ORDINAL, A 


1 2324 


CJNE 


A,#0FF,GHV7 


1 2325 


JMP 


GHV2_2 


1 2326 GHV2: 




1 2327 


JNC 


GHV3 


1 2328 GHV2 2: 




1 2329 


DEC 


FIRST_OPER_ORDINAL 


1 2330 GHV3: 




1 2331 


MOV 


OUR CODE HIGH,PARAM6 


1 2332 


MOV 


OUR CODE L0W,PARAM5 


1 2333 


MOV 


A, OUR CODE LOW 


1 2334 


JNZ 


GHV5 


1 2335 


MOV 


A, OUR CODE HIGH 


1 2336 


JNZ 


GHV5 


1 2337 


MOV 


NUMBER OF OPERANDS , #01H 


1 2338 


JMP 


GHV9 


1 2339 GHV5: 




1 2340 


MOV 


SECOND OPER ORDINAL, OUR COD 


1 2341 


MOV 


A, SECOND OPER ORDINAL 


1 2342 


CJNE 


A,#0FH,GHV6 



iMnemonic ord 



;First operand ord 



;Second operand ord 
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LOG OBJ 

FEOD 02FE12 

FEIO 5002 

FE12 1564 

FE14 756B02 

FE17 E56D 
FE19 B40909 
FEIC 754D02 
FEIF 756516 
FE22 02FE28 

FE25 754D01 

FE28 90FE32 

FE2B E56B 

FE2D 85636C 

FE30 23 

FE31 73 

FE32 22 

FE33 00 

FE34 8006 

FE36 12FE3C 

FE39 85646C 



LINE 



SOURCE 



1 2343 




JMP 


1 2344 


GHV6: 




1 2345 




JNC 


1 2346 


GHV6_6: 




1 2347 




DEC 


1 2348 


GHV7: 




1 2349 




MOV 


1 2350 


GHV9: 




1 2351 




MOV 


1 2352 




CJNE 


1 2353 




MOV 


1 2354 




MOV 


1 2355 




JMP 


1 2356 


GHVIO: 




1 2357 




MOV 


1 2358 


GHVll: 




1 2359 




MOV 


1 2360 




MOV 


1 2361 




MOV 


-1 2362 




RL 


=1 2363 




JMP 


=1 2364 


GHVTBL: 




= 1 2365 




RET 


=1 2366 




NOP 


=1 2367 




SJMP 


=1 2368 




CALL 


=1 2369 




MOV 


=1 2370 






=1 2371 +1 


$EJECT 





GHV6_6 

GHV7 

SECOND_OPER_ORDINAL 

NUMB ER_OF_0 PER ANDS,#02H 

A,MNEMONIC_ORDINAL 

A,#09H,GHV10 

NUMBER_0F_BYTES,#02H 

THIRD_0PER_0RDINAL,#16H 

GHVll 

NUMBER_0F_BYTES,#01H 

DPTR,#GHVTBL 

A,NUMBER_OF_OPERANDS 

OPERAND_CHECK,FIRST_OPER_ORDINAL 

A 

(PA + DPTR 



;Entry 1 for GHVTBL 



OPERAND_BYTE_CHECK 
OPERAND BYTE CHECK 



OPERAND_CHECK,SECOND_OPER_ORDINAL 



;Entry 2 
; Entry 3 



for GHVTBL 
for GHVTBL 
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LOG OBJ 



FE3G E56G 
FE3E B41000 

FE41 400A 
FE43 B41603 
FE46 02FE4B 

FE49 5002 

FE4B 054D 

^FE4D B41402 
iFE50 054D 
FE52 22 



LINE 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 +1 



SOURGE 



ft**--***-****-************ ************* 



NAME: OPERAND_BYTE_GHECK 

ABSTRACT: This routine is updating the number of bytes in the 
opcode based on OPERAND_CHECK. 

CAUTION: This routine is position sensitive. It is entered from 
the previous routine, GET_HASH_VALUE as 'in line' code. 

INPUTS: OPERAND_CHECK 

OUTPUTS: NUMBER_BYTES 

VARIABLES MODIFIED: A, NUMBER_OF_B YTES 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: None 



■k -k -k -k -k -k i 

OPERAND 



kkkkkk 



kkkkkkkkkkkkkkk-kkkkkkkkk**kkk*k*kk*kk**-k**-k***-k-k***** 



OBGO: 

0BG2: 

0BC2_2: 

OBCl: 



OBGRET: 
$EJECT 



BYTE_CHECK: 

MOV A,OPERAND_CHECK 

CJNE A,#10H,0BG0 

JC OBCl 

CJNE A,#16H,0BC2 

JMP 0BC2_2 

JNG OBCl 

INC NUMBER_OF_BYTES 

CJNE A, #14H, OBGRET 

INC NUMBER_OF_BYTES 
RET 
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LOG OBJ 



FE53 
FE55 
FE56 
FE57 
FE58 
FE5B 
FE5G 
FE5E 
FE60 
FE62 
FE64 
FE66 
FE68 
FE6B 
FE6D 
FE70 
FE73 
FE76 
FE78 
FE7B 
FE7D 
FE80 
FE83 
FE85 
FE86 
FE88 
FE8B 
FE8C 
FE8E 
FE8F 
FE92 



E567 

14 

23 

23 

90FE5G 

73 

E563 

8006 

E564 

8002 

E565 

F566 

B40C05 

74A1 

02FE8E 

B40F03 

02FE78 

501A 

B40300 

400E 

B40A03 

02FE85 

5006 

C3 

248D 

02FE8E 

C3 

2451 

FA 

12E059 

E566 



= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 



LINE 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 



SOURGE 
****************************************************************** 

NAME: DISPLAY_OPERAND 

ABSTRAGT: This routine displays an operand of the disassembled 
opcode to the console. 

INPUTS: NUNBER_OF_OPERANDS_PRINTED, F IRST_OPER_ORDIN AL , 
SEGOND_OPER_ORDINAL, TH I RD_OPER_ORD I N AL 

OUTPUTS: NUMBER_OF_OPERANDS_PRINTED 

VARIABLES MODIFIED: A, DPTR, GURRENT_OPERAND , C, PARAMl , POINTO, 

VALHGH, VALLOW, PARAM2, EXPRESS IONS_PR INTED, MEMORY_TRAGE_ADDR_H IGH , 
TEMP_LOW, NO_OF_OPERANDS_PR INTED 

ERROR EXITS: None 

SUBROUTINES ACGESSED DIREGTLY: DI SPLAY_TOKEN , LSTBYT, CO, LSTWRD, 
PRINT STRING 



DISPLAY 



DDTBL: 



DDO: 



DD0_1: 

DDl: 

DD1_1: 

DD3: 



DD5: 
DD5 5: 



DD4: 

DD4_1: 

DD2: 



******************************************************** 

OPERAND: 

MOV 

DEC 

RL 

RL 

MOV 

JMP 

MOV 

SJMP 

MOV 

SJMP 

MOV 

MOV 

GJNE 

MOV 

JMP 

CJNE 

JMP 

JNC 

CJNE 

JC 

GJNE 

JMP 

JNC 

CLR 

ADD 

JMP 

CLR 

ADD 

MOV 

CALL 

MOV 



A,NO_OF_OPERANDS_PRINTED 

A 

A 

A 

DPTR,#DDTBL 

@A+DPTR 

A,FIRST_OPER_ORDINAL 

DDO 

A,SECOND_OPER_ORDINAL 

DDO 

A,THIRD_OPER_ORDINAL 

GURRENT_OPERAND,A 

A,#0CH,DD0_1 

A,#0A1H 

DD4 1 

A,#TTFH,DD1 

DD1_1 

DD2 

A,#03H,DD3 

DD4 

A,#0AH,DD5 

DD5_5 

DD4 

C 

A,#8DH 

DD4_1 

C 

A,#(0FST+REG+1) 

PARAMl, A 

DISPLAY TOKEN 

A,GURRETrT OPERAND 
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m 



LOG 


OBJ 


FE94 


C3 


FE95 


9410 


FE97 


B4000F 


FE9A 


7440 


FE9C 


2568 


FE9E 


F8 


FE9F 


E6 


FEAO 


FA 


FEAl 


12E015 


FEA4 


0568 


FEA6 


02FF7C 


FEA9 


B40102 


FEAC 


80EC 


FEAE 


B40207 


FEBl 


7A23 


FEB3 


12E006 


FEB6 


80E2 


FEB8 


B40307 


FEBB 


7A2F 


FEBD 


12E006 


FECO 


80D8 


FEC2 


B4043F 


FEC5 


7840 


FEC7 


08 


FEC8 


8649 


FECA 


08 


FECB 


864A 


FECD 


E56D 


FECF 


B40F0F 


FED2 


7A23 


FED4 


12E006 


FED7 


AA49 


FED9 


AB4A 


FEDB 


12E018 


FEDE 


02FF7C 


FEEl 


E566 


FEES 


B41403 


FEE6 


02FEF2 


FEE9 


B41503 


FEEC 


02FEF2 


FEEF 


B4160A 


FEF2 


AA49 


FEF4 


AB4A 


FEF6 


12E018 


.FEF9 


02FF7C 


|fefc 


AA4A 


TEFE 


12E015 


FFOl 


02FF7C 



LINE 



SOURCE 



1 2465 




CLR 


C 


1 2466 




SUBB 


A,#10H 


1 2467 




CJNE 


A,#00H,DD_CASE_1 


1 2468 


DD_CASE_ 


EXP8: 




1 2469 




MOV 


A,#WORKING SPACE 


1 2470 




ADD 


A, EXPRESSIONS PRINTED 


1 2471 




MOV 


POINTO,A 


1 2472 




MOV 


A,(aPOINTO 


1 2473 




MOV 


PARAM1,A 


1 2474 




CALL 


LSTBYT 


1 2475 




INC 


EXPRESSIONS PRINTED 


1 2476 




JMP 


DD_CASE_END 


1 2477 


DD_CASE 


1: 




1 2478 




CJNE 


A,#01H,DD CASE 2 


1 2479 




JMP 


DD_CASE_EXP8 


1 2480 


DD_CASE 


2: 




1 2481 




CJNE 


A,#02H,DD CASE 3 


1 2482 




MOV 


PARAM1,#'#' 


1 2483 




CALL 


CO 


1 2484 




JMP 


DD_CASE_EXP8 


1 2485 


DD CASE 


3: 




1 2486 




"CJNE 


A,#03H,DD CASE 4 


1 2487 




MOV 


PARAM1,#'/' 


1 2488 




CALL 


CO 


1 2489 




JMP 


DD_CASE_EXP8 


1 2490 


DD_CASE 


4: 




1 2491 




CJNE 


A,#04H,DD CASE 5 


1 2492 




MOV 


POINTO,#WORKING SPACE 


1 2493 




INC 


POINTO 


1 2494 




MOV 


VALHGH,(3P0INT0 


1 2495 




INC 


POINTO 


1 2496 




MOV 


VALLOW.ePOINTO 


1 2497 




MOV 


A, MNEMONIC ORDINAL 


1 2498 




CJNE 


A,#OFH,DD CASE 4 


1 2499 




MOV 


PARAM1,#'#' 


1 2500 




CALL 


CO 


1 2501 


DD_CASE 


EXP16: 




1 2502 




MOV 


PARAM1,VALHGH 


1 2503 




MOV 


PARAM2,VALL0W 


1 2504 




CALL 


LSTWRD 


1 2505 




JMP 


DD_CASE_END 


1 2506 


DD CASE 


4 0: 




1 2507 




MOV 


A, CURRENT OPERAND 


1 2508 




CJNE 


A,#14H,SSTT 


1 2509 




JMP 


SS3 


1 2510 


SSO: 


CJNE 


A, #21, SSI 


1 2511 




JMP 


SS3 


1 2512 


SSI: 


CJNE 


A,#16H,SS2 


1 2513 


SS3: 


MOV 


PARAM1,VALHGH 


1 2514 




MOV 


PARAM2,VALL0W 


1 2515 




CALL 


LSTWRD 


1 2516 




JMP 


DD CASE END 


1 2517 


SS2: 


MOV 


PARAM1,VALL0W 


1 2518 




CALL 


LSTBYT 


1 2519 




JMP 


DD CASE END 



jByte expression 8-bits 
;General ized byte expression display 



;Bit expression, 8-bits 
;Immediate expression, 8-bits 

;Compl imented byte expression, 8-bits 

;Expression, 16-bits 



;Generalized word expression display 
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FF04 B4050E 
FF07 7840 
FF09 E6 
FFOA 54E0 
FFOC C4 
FFOD 03 
FFOE F549 
FFIO 08 
FFll 864A 
FF13 80C2 

FF15 B4063C 
FF18 E56A 
FFIA 254D 
FFIC F56A 
FFIE 5002 
FF20 0569 

FF22 7440 

FF24 2568 

FF26 F8 

FF27 E6 

FF28 B47F03 

FF2B 02FF45 



FF2E 
FF30 
FF31 
FF32 
FF34 
FF36 
FF37 
FF39 
FF3B 
FF3D 
FF3F 



4015 

F4 

04 

F547 

E56A 

C3 

9547 

F54A 

E569 

5001 

14 



FF40 F549 
FF42 02FF50 

FF45 256A 
FF47 F54A 
FF49 E569 
FF4B 5001 
FF4D 04 

FF4E F549 

FF50 0568 
FF52 8083 

FF54 B40712 
FF57 7AFF 
FF59 7B61 



= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 

= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 
= 1 



LINE 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2 534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 



SOURCE 

DD_CASE_5: 

CJNE 
MOV 
MOV 
ANL 
SWAP 
RR 
MOV 
INC 
MOV 
JMP 
DD_CASE_6: 

CJNE 
MOV 
ADD 
MOV 
JNC 
INC 
DD_CASE_6_0: 
MOV 
ADD 
MOV 
MOV 
CJNE 
JMP 
DD CASE_6_1: 
JC 
CPL 
INC 
MOV 
MOV 
CLR 
SUBB 
MOV 
MOV 
JNC 
DEC 
DD CASE_6_3: 
MOV 
JMP 
DD CASE_6_2: 
ADD 
MOV 
MOV 
JNC 
INC 
DD_CASE_6_4: 

MOV 
DD_CASE_6_5: 
INC 
JMP 
DD_CASE_7: 

CJNE 

MOV 

MOV 



A,#05H,DD_CASE_6 

POINTO,#WORKING_SPACE 

A,(3P0INT0 

A,#OEOH 

A 

A 

VALHGH,A 

POINTO 

VALLOW,@POINTO 

DD_CASE_EXP16 

A,#06H,DD_CASE_7 

A,MEMORY_TRACE_ADDR_LOW 

A,NlJMBER_OF_BYTES 

MEMORY_TRACE_ADDR_LOW,A 

DD CASE 6 

MEM0RY_TR7^CE_ADDR_HIGH 

A,#WORKING_SPACE 

A,EXPRESSIONS_PRINTED 

POINTO, A 

A,@POINTO 

A,#07FH,DD_CASE_6_1 

DD_CASE_6_2 

DD_CASE_6_2 

A 

A 

TEMP LOW, A 

A,MEMORY_TRACE_ADDR_LOW 

C 

A,TEMP_LOW 

VALLOW,A 

A,MEMORY_TRACE_ADDR_HIGH 

DD_CASE_6_3 

A 

VALHGH,A 
DD_CASE_6_5 

A,MEMORY_TRACE_ADDR_LOW 

VALLOW,A 

A, MEMORY TRACE ADDR_HIGH 

DD_CASE_'5'_4 

A 

VALHGH,A 

EXPRESSIONS_PRINTED 
DD_CASE_EXP16 

A,#07H,DD_CASE_8 
PARAM1,#HIGH DD CASE 7_MSG 
PARAM2,#L0W DD_'CASE_7_MSG 



;Expressi on, 11-bi ts 



;Rel ati ve offset 



;Specidl case for @A+DPTR 
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LOG OBJ 

FF5B 12E01E 
FF5E 02FF7G 

FF61 07 

FF62 40412B44 

FF66 505452 

FF69 B40810 
FF6G 7AFF 
FF6E 7876 
FF70 12E01E 
FF73 02FF7G 

FF76 05 

FF77 40412B50 

-F7B 43 

-F7G 0567 
FF7E 22 



LINE 

2575 
2576 
2577 
2578 



2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 



SOURGE 

GALL 
JMP 
DD GASE_7_MSG: 
DB 



DD GASE_8: 

GJNE 

MOV 

MOV 

GALL 

JMP 

DD_GASE_8_MSG: 
DB 



=1 2587 DD_GASE_END: 

=1 2588 ING 

=1 2589 RET 

=1 2590 +1 $EJEGT 



PRINT_STRING 
DD_GASE_END 

07, '@A + DPTR' 



A,#8,DD_GASE_END 
PARAM1,#HIGM DD GASE 8 MSG 
PARAM2,#L0W DD_I:ASE_B'_MSG 
PRINT_STRING 
DD_GASE_END 

05, '@A + PG' 



NO OF OPERANDS PRINTED 



^Special case for 0A+PG 
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LOG OBJ 




LINE 




= ] 


L 2591 




= ; 


L 2592 




= ; 


L 2593 




= 


L 2594 




= ; 


L 2595 




= 


L 2596 




= : 


[ 2597 




= 


[ 2598 




= : 


[ 2599 




= 


L 2600 




= ; 


I 2601 




= : 


L 2602 




= 


L 2603 




= 


L 2604 




= 


L 2605 




= 


L 2606 




= 


L 2607 




= 


L 2608 




= 


I 2609 


FF7F 7A2C 


= 


I 2610 


FF81 02E006 


= 


I 2611 




= 


L 2612 +1 



SOURCE 
****************************************************************** 

NAME: DISPLAY_COMMA 

ABSTRACT: This routine displays a comma symbol to the console. 

INPUTS: None 

OUTPUTS: None 

VARIABLES MODIFIED: PARAMl 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: CO 

********************************************************************* 

DISPLAY_COMMA: 

MOV PARAMl, #',' 

JMP CO 
$EJECT 
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LOG OBJ 



LINE 



SOURGE 



m 



FF84 
FF86 
FF88 
FF89 
FF8G 
FF8F 
FF91 
FF92 
FF94 
FF96 
FF99 
fF9G 
,F9F 

'fai 

FA2 
FFA4 
FFA7 



E56D 

2410 

FA 

12E059 

90F587 

E56D 

93 

F55B 

7A20 

12E006 

756701 

756801 

E55B 

G3 

9407 

B40001 

22 



FFA8 B40102 

FFAB G153 

FFAD B40212 

FFBO E540 

FFB2 B48507 

FFB5 E541 

FFB7 854241 

FFBA F542 





^^F 



FFBG D153 
FBE F17F 
CO C153 



FC2 B40306 
FFC5 D153 



2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 



NAME: DISASSEMBLE 

ABSTRACT: This routine displays one disassembled opcode on the 
consol e. 

INPUTS: MNEMONIG_ORDINAL 

OUTPUTS: None 

VARIABLES MODIFIED: A, PARAMl, DPTR, INSTRUCTION_VALUE , 
NO_OF_OPERANDS_PRINTED, EXPRESS IONS_PRI NTED, C 

ERROR EXITS: None 

SUBROUTINES ACCESSED DIRECTLY: DI SPLAY_TOKEN , GO, D ISPLAY_OPERAND , 
DISPLAY_GOMMA, 

*********************************************************** 



DISASSEMBLE: 
MOV 
ADD 
MOV 
GALL 
MOV 
MOV 
MOVC 
MOV 
MOV 
GALL 
MOV 
MOV 
MOV 
GLR 
SUBB 
CJNE 
RET 

DISCASE_1: 

CJNE 
JMP 

DISCASE_2: 

CJNE 

MOV 

CJNE 

MOV 

MOV 

MOV 

DISGASE_2_1: 
CALL 
CALL 
JMP 

DISGASE_3: 

CJNE 
GALL 



A,MNEMONIC_ORDINAL 

A,#OFST 

PARAMl, A 

DISPLAY_TOKEN 

DPTR,#MNEMONIC_TAB 

A, MNEMONIC ORDINAL 

A,(aA + DPTR 

INSTRUGTION_VALUE,A 

PARAMl, #' ' 

CO 

N0_0F_0PERANDS_PRINTED,#1 

EXPRESSI0NS_PRINTED,#1 

A,INSTRUCTION_VALUE 

C 

A,#07H 

A,#00H,DISCASE_1 



A,#01H,DISCASE_2 
DISPLAY_OPERAND 

A,#02H,DISCASE_3 

A,WORKING_SPACE 

A,#85H,DISCASE_2_1 

A,(W0RKING_SPACE+1) 

(W0RKING_SPAGE+l),(W0RKING_SPACE+2) 

(W0RKING_SPACE+2),A 

DISPLAY_OPERAND 

DISPLAY_COMMA 

DISPLAY_OPERAND 

A,#03H,DISGASE_4 
DISPLAY OPERAND 



;Gheck for special case 
;of MOV /,/ where operands 
;are in reverse order. 
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LOG OBJ 

FFC7 F17F 
FFC9 C153 

FFCB B4040A 
FFCE D153 
FFDO F17F 
FFD2 D153 
FFD4 F17F 
FFD6 C153 

FFD8 B40502 
FFDB C153 

FFDD B40606 

FFEO D153 

FFE2 F17F 

FFE4 C153 

FFE6 B40702 
FFE9 C153 

FFEB B40802 
FFEE D153 

FFFO 22 



LINE 



SOURCE 



1 2668 


CALL 


1 2669 


JMP 


1 2670 


DISCASE 4: 


1 2671 


CJNE 


1 2672 


CALL 


1 2673 


CALL 


1 2674 


CALL 


1 2675 


CALL 


1 2676 


JMP 


1 2677 


DISCASE 5: 


1 2678 


CJNE 


1 2679 


JMP 


1 2680 


DISCASE 6: 


1 2681 


CJNE 


1 2682 


CALL 


1 2683 


CALL 


1 2684 


JMP 


1 2685 


DISCASE 7: 


-1 2686 


CJNE 


=1 2687 


JMP 


=1 2688 


DISCASE 8: 


=1 2689 


"CJNE 


=1 2690 


CALL 


=1 2691 


DISCASE END: 


=1 2692 


RET 


2693 


END 



DISPLAY_COMMA 
DISPLAY_OPERAND 

A,#04H,DISCASE_5 

DISPLAY_OPERAND 

DISPLAY_COMMA 

DISPLAY_OPERAND 

DISPLAY_COMMA 

DISPLAY_OPERAND 

A,#05H,DISCASE_6 
DISPLAY_OPERAND 

A,#06H,DISCASE_7 
DISPLAY_OPERAND 
DISPLAY_COMMA 
DISPLAY_OPERAND 

A,#07H,DISCASE_8 
DISPLAY_OPERAND 

A,#08H,DISCASE_END 
DISPLAY OPERAND 
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NAME 
# A OPl 



TYPE 
N 



VALUE AND REFERENCES 



A_0P2 N 

AB_0P1 N 

AMTO L CSEG 

AMTl L CSEG 

AMT2 L CSEG 

kAMTERR L CSEG 

IaSERR L CSEG 

^ASM_PC_HIGH L DSEG 

ASM_PC_LOW L DSEG 

ASMBASE N 

ASSEMBLY_CMD L CSEG 

ATA_PLUS_DPTR_0P1 N 

ATA_PLUS_DPTR_0P2 N 

ATA_PLUS_PC_0P2 N 

ATA_T0KE N 

ATDPTR_0P1 N 

ATDPTR_0P2 N 

ATR0_0P1 N 

ATR0_0P2 N 

ATR1_0P1 N 

^ATR1_0P2 N 

... N DSEG 

B_0_T L BSEG 

BACKWARD_JUMP_CASE_4 L CSEG 

BACKWARD_JUMP_CASE_5 L CSEG 

BAR_TOKE N 

BASE N 

BIT_END N 

BIT_EXP L BSEG 

BIT_EXP8_0P1 N 

BIT_EXP8_0P2 N 

BLINK N 

BYTE_EXP8_0P1 N 

BYTE_EXP8_0P2 N 

•p_OPl N 

C_0P2 N 

C TOKE N 

CT^LCULATE INSTRUCTION VALUE . L CSEG 



002CH 

521 

550 

584 

649 

715 

756 

0420H 

0210H 

F98FH 

F992H 

F9ADH 

F9A7H 

F832H 

004BH 

2136 
004CH 

2150 
F581H 
F977H 
03F4H 
5EE0H 
6300H 
OOOAH 
0294H 
3DE0H 
0058H 
0840H 
0084H 
0C60H 
OOFOH 

1787 
OOOOH 
FC02H 
FC72H 
0003H 
EOOOH 
140 
OOIBH 
0002H 
02ECH 
4620H 
0080H 
02C0H 
634 
4200H 
684 
0268H 
39C0H 
005EH 
FAOOH 



363# 461 463 481 483 501 503 504 505 506 508 509 510 511 513 514 515 516 
523 524 525 526 528 529 530 531 533 534 535 536 543 544 545 546 548 549 
551 553 554 555 556 563 564 565 566 568 569 570 571 573 574 575 576 583 
585 586 588 589 590 591 593 594 595 596 603 621 641 643 644 645 646 648 
650 651 653 654 655 656 683 684 703 704 705 706 708 709 710 711 713 714 
716 723 725 726 738 740 741 743 744 745 746 748 749 750 751 753 754 755 
763 

387# 540 560 580 758 760 761 764 765 766 768 769 770 771 773 774 775 77^ 

374# 623 663 

1249 1255# 

1256# 1269 

1263 1267# 

1218 1255 1265# 

834 836 849 886 893 901# 939 943 950 982 

82# 1251 1257 1877 1882 1946 1986 2002 2017 2045 2061 2065 2082 2107 

2151 

83# 1252 1259 1874 1883 1947 1993 1999 2014 2052 2058 2066 2079 2135 



35# 36 

37 1246# 

383# 601 

406# 641 

407# 621 

50# 832 943 

377# 758 

399# 738 

364# 465 485 605 665 685 760 765 

388# 505 525 545 565 585 625 645 705 725 740 745 

365# 466 486 606 666 686 761 766 

389# 506 526 546 566 586 626 646 706 726 741 746 
PREDEFINED 1154 1525 1529 1538 1540 1541 1545 1549 1578 1594 1611 1725 

1798 1799 1803 1807 1820 1821 1825 1829 2282 2285 2287 2311 2314 2316 

103# 840 890 898 939 982 1055 

1989 1995 2012# 

2048 2054 2077# 

46# 908 

42# 122 123 124 125 126 127 128 129 131 132'133 134 135 136 137 138 139 
141 142 143 

451# 1208 

444# 1191 1210 1617 1699 1748 

379# 478 498 518 640 680 700 720 

401# 600 620 660 

60# 

378# 464 484 540 541 560 561 580 581 604 624 625 626 628 629 630 631 633 
635 636 698 718 724 764 

400# 504 524 544 564 584 624 644 665 666 668 669 670 671 673 674 675 676 
704 744 

376# 600 620 658 660 678 681 701 721 

398# 640 

51# 1616 

803 846 851 889 996 1026 1058 1063 1096 1123 1477# 
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NAME 



TYPE 



VALUE AND REFERENCES 



CASE_3_M0RE L CSEG 

CBYTE_T0KE N 

CHANGE_ASM_PC_1 L CSEG 

CHANGE_CASE_2 L CSEG 

CHANGE_CASE_3 L CSEG 

CHANGE_CASE_4 L CSEG 

CHANGE_CASE_4_END L CSEG 

CHANGE_CASE_4A L CSEG 

CHANGE_CASE_4AA L CSEG 

CHANGE_CASE_4C L CSEG 

CHANGE_CASE_4D L CSEG 

CHANGE_CASE_4F L CSEG 

CHANGE_CASE_5 L CSEG 

CHANGE_CASE_5_END L CSEG 

CHANGE_CASE_5A L CSEG 

CHANGE_CASE_5AA L CSEG 

CHANGE_CASE_5C L CSEG 

CHANGE_CASE_5D. L CSEG 

CHANGE_CASE_5F L CSEG 

CHANGE_CASE_6 L CSEG 

CHANGE_CASE_7 L CSEG 

CHANGE_END L CSEG 

CHANGE_END_A L CSEG 

CHANGE END LOOP L CSEG 

CHANGE~ERRITR L CSEG 

CHANGE_TO_INSTRUCTION_OP. . . L CSEG 

CHARIN L DSEG 

CHECK_AND_CHANGE_ASM_PC . . . L CSEG 

CHECK AND INC HASH TAB. ... L CSEG 

CHECK_AND_SET_EXP_FLAG. . . . L CSEG 

CHECK_AND_SET_SECOND_EXP_FLAG L CSEG 

CHECK_EXP_FLAG L CSEG 

CHECK_HASH_TAB L CSEG 

CHECKSUM N REG 

CHRCNT L DSEG 

CI N 

CO N 

CONT_OUR_CODE L CSEG 

CONT_UPDATE LSSTHN L CSEG 

CONTINUATIOTT_LINE N 

COUNT N REG 

CSTS N 

CURRENT_OPERAND L DSEG 

DD CASE 1 L CSEG 

DD~CASE 2 L CSEG 

DD~CASE~3 L CSEG 

DD_CASE_4 L CSEG 

DD_CASE_4_0 L CSEG 

DD_CASE_5 L CSEG 

DD_CASE_6 L CSEG 

DD_CASE_6_0 L CSEG 

DD CASE_6_1 L CSEG 

DD_CASE_6_2 L CSEG 

DD_CASE_6_3 L CSEG 

DD CASE 64 L CSEG 



FBB9H 


1968 


1972# 




0080H 


52# 2205 




FB7DH 


1878 


1881# 




FB96H 


1949 


1954# 




FBA5H 


1955 


1962# 




FBC3H 


1963 


1978# 




FCIFH 


2010 


2031# 




FBDCH 


1986 


1988# 




FBEIH 


1987 


1991# 




FBE6H 


1993 


1994# 




FBFAH 


2005 


2006# 




FC16H 


2022 


2023# 




FC26H 


1979 


2035# 




FC8FH 


2075 


2095# 




FC43H 


2045 


2047# 




FC48H 


2046 


2050# 




FC4DH 


2052 


2053# 




FC6AH 


2070 


2071# 




FC86H 


2087 


2088# 




FC96H 


2036 


2099# 




FCBFH 


2100 


2120# 




FCD4H 


1953 


1961 1977 2034 2098 2119 2131# 




FCF3H 


2145 


2147# 




FCE5H 


2138# 2148 




FC5CH 


2003 


2007 2020 2024 2064# 2072 2085 2089 2109 2122 


FB82H 


1220 


1945# 




0050H 


87# 






FB6DH 


1872# 1950 1956 1964 1982 2039 2102 2124 




FA17H 


1485 


1492# 




FAA8H 


850 ] 


L061 1697# 




FAFOH 


914 [ 


?92 1745# 




FAC9H 


804 ] 


L719# 




FA18H 


1489 


1494# 




R6 


116# 






0051H 


88# 






E009H 


123# 






E006H 


122# 


2190 2483 2488 2500 2611 2643 




F95AH 


1205# 1213 




FA34H 


1527# 1536 




E068H 


141# 


2229 




R7 


115# 






EOOCH 


124# 






0066H 


425# 


2445 2464 2507 




FEA9H 


2467 


2477# 




FEAEH 


2478 


2480# 




FEB8H 


2481 


2485# 




FEC2H 


2486 


2490# 




FEEIH 


2498 


2506# 




FF04H 


2491 


2520# 




FF15H 


2521 


2531# 




FF22H 


2536 


2538# 




FF2EH 


2543 


2545# 




FF45H 


2544 


2546 2560# 




FF40H 


2555 


2557# 




FF4EH 


2564 


2566# 
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NAME 



TYPE 



VALUE AND REFERENCES 



DO CASE 65 L CSEG 

DD"CASEl7" L CSEG 

DD~CASE_7_MSG L CSEG 

^ DD_CASE_8 L CSEG 

DD_CASE_8_MSG L CSEG 

DD CASE_END L CSEG 

DD~CASE_EXP16 L CSEG 

^ DD CASE EXP8 L CSEG 

DDO . ." L CSEG 

DD0_1 L CSEG 

DDl L CSEG 

DDl 1 L CSEG 

002" L CSEG 

DD3 . L CSEG 

DD4 L CSEG 

•DD4 1 L CSEG 

K)D5~ L CSEG 

bD5_5 L CSEG 

DDTBL L CSEG 

DISASSEMBLE L CSEG 

DISASSEMBLY_CMD L CSEG 

0ISCASE_1 L CSEG 

DISCASE_2 L CSEG 

DISCASE_2_1 L CSEG 

DISCASE_3 L CSEG 

DISCASE_4 L CSEG 

DISCASE 5 L CSEG 

DISCASE~6 L CSEG 

DISCASEI7 L CSEG 

DISCASE_8 L CSEG 

DISCASE_END L CSEG 

DISPLAY_COMMA L CSEG 

•DISPLAY_OPERAND L CSEG 

DISPLAY TOKEN N 

DIVIDE 1 L CSEG 

DIVIDE~2 L CSEG 

DIVIDE_3 L CSEG 

DIVIDE_4 LCSEG 

DIVIDEND_HIGH L DSEG 

DIVIDEND_LOW L DSEG 

DIVISOR L DSEG 

DPH N DSEG 

DPL N DSEG 

DPTR_0P1 N 

DPTR_T0KE N 

DSO L CSEG 

DSl '- CSEG 

DS2 L CSEG 

DS3 L CSEG 

DS4 L CSEG 

^DS5 L CSEG 

pSRET L CSEG 

^ND FIRST_OPERAND L CSEG 

'END SECOND OPERAND L CSEG 

END~SELECT~INSTRUCTION_TAIL . L CSEG 



FF50H 


2559 2568# 


FF54H 


2532 2571# 


FF61H 


2573 2574 2577# 


FF69H 


2572 2579# 


FF76H 


2581 2582 2585# 


FF7CH 


2476 2505 2516 2519 2576 2580 2584 2587# 


FED7H 


2501# 2530 2570 


FE9AH 


2468# 2479 2484 2489 


FE66H 


2441 2443 2445# 


FE70H 


2446 2449# 


FE76H 


2449 2451# 


FE78H 


2450 2452# 


FE92H 


2451 2464# 


FE7BH 


2452 2453# 


FE8BH 


2453 2456 2460# 


FE8EH 


2448 2459 2462# 


FE83H 


2454 2456# 


FE85H 


2455 2457# 


FE5CH 


2438 2440# 


FF84H 


2215 2633# 


FCFDH 


38 2180# 


FFA8H 


2649 2651# 


FFADH 


2652 2654# 


FFBCH 


2657 2661# 


FFC2H 


2655 2665# 


FFCBH 


2666 2670# 


FFD8H 


2671 2677# 


FFDDH 


2678 2680# 


FFE6H 


2681 2685# 


FFEBH 


2686 2688# 


FFFOH 


2689 2691# 


FF7FH 


2609# 2663 2668 2673 2675 2683 


FE53H 


2433# 2653 2662 2664 2667 2669 2672 2674 


E059H 


136# 2463 2637 


F9BCH 


1402# 1417 1429 


F9BDH 


1404# 1451 


F9CFH 


1413 1415# 


F9D8H 


1421 1423# 


006EH 


433# 1405 1410 1426 1428 1448 1450 2276 


006FH 


434# 1444 1447 2277 2306 


0070H 


435# 1398 1408 1427 2275 2304 


0083H 


PREDEFINED 1495 2267 


0082H 


PREDEFINED 1497 


023CH 


375# 638 661 


OOAIH 


53# 836 843 881 946 


FD06H 


2184# 2230 


FD21H 


2196 2197# 


FD40H 


2198 2214# 


FD2FH 


2203 2205# 


FDIDH 


2194# 2213 


FD50H 


2219 2221# 


FD60H 


2228 2231# 


FAA7H 


1616 1618# 


FB6CH 


1835 1837 1839# 


F968H 


1209 1211 1214# 
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TYPE 



VALUE AND REFERENCES 



EOL_CHECK N 

EOL_TOKE N 

ERRNUM L 

ERROR N 

EXP_FLAG_TABLE L 

EXPll OPl N 

EXP16_0P1 N 

EXP16_0P2 N 

EXPRESSIONS_PRINTED L 

FETCH N 

FIRST_EXP L 

FIRST_NOT_REGISTER L 

FIRST_OPER_ORDI^(AL L 

FJC_5_C0NTINUE . L 

F0RWARD_JUMP_CASE_4 L 

F0RWARD_JUMP_CASE_5 L 

GE_FI_0P_1 L 

GE_FI_0P_2 L 

GET_C0MMA N 

GET_FIRST_OPERAND L 

GET_HASH_VALUE L 

GET_PART N 

GET_SECOND_OPERAND L 

GETEOL N 

GETNUM N 

GETOKE N 

GHV Al L 

GHVT L 

GHVIO L 

GHVll L 

GHV2 L 

GHV2_2 L 

GHV3 L 

GHV5 L 

GHV6 L 

GHV6_6 L 

GHV7 L 

GHV9 L 

GHVTBL L 

HASH_CONTINUE L 

INST VALUE_LOOP L 

INSTRUCTION L 

INSTRUCTION_CODE L 

INSTRUCTION VALUE ....... L 

JTOO. . . .~ L 

JTRET L 

JUMP_ABSOLUTE_OPERAND .... L 

JUMP_END. N 

JUMP_LONG_OPERAND L 

JUMP_OPERAND L 

JUMP_TWO_OPERANDS L 

LINBUF L 

LINCNT L 

LINE START L 





E06EH 




0007H 


DSEG 


0043H 




E05FH 


CSEG 


FAD8H 




039CH 




0370H 




5280H 


DSEG 


0068H 




E04AH 


BSEG 


0003H 


CSEG 


FA88H 


DSEG 


0063H 


CSEG 


FC65H 


CSEG 


FBE8H 


CSEG 


FC4FH 


CSEG 


FA7FH 


CSEG 


FA9AH 




E06BH 


CSEG 


FA63H 


CSEG 


FD63H 




E065H 


CSEG 


FBODH 




E053H 




E050H 




E056H 




2181 


CSEG 


FD77H 


CSEG 


FDBFH 


CSEG 


FE25H 


CSEG 


FE28H 


CSEG 


FDEFH 


CSEG 


FDFIH 


CSEG 


FDF3H 


CSEG 


FE05H 


CSEG 


FEIOH 


CSEG 


FE12H 


CSEG 


FE14H 


CSEG 


FE17H 


CSEG 


FE32H 


CSEG 


FD6EH 


CSEG 


FA06H 


DSEG 


005FH 


CSEG 


F5B3H 


DSEG 


005BH 


CSEG 


F8E1H 


CSEG 


F8F0H 


CSEG 


F8F9H 




0016H 


CSEG 


F908H 


CSEG 


F8C6H 


CSEG 


F8CFH 


DSEG 


0024H 


DSEG 


0053H 


DSEG 


0052H 



143# 2183 

49# 1255 1263 

74# 901 912 990 1149 1265 1499 1879 1980 2037 2108 2121 2260 

138# 902 999 1266 1500 1880 2067 2261 

1726 1729# 

381# 459 479 499 519 539 559 579 599 619 639 659 679 699 719 739 759 

380# 460 480 

404# 638 

427# 2470 2475 2540 2569 2645 

131# 2206 

445# 1192 1703 1716 1721 

1582 1584 1598# 

422# 2323 2329 2361 2440 

2063 2068# 

1990 1996# 

2049 2055# 

1591 1593# 

1608 1610# 

142# 884 896 941 984 994 1066 

841 891 940 983 1056 1577# 

2214 2257# 

140# 2182 

899 1786# 

134# 1268 

133# 887 906 910 988 995 1024 1067 1092 1121 1250 

135# 831 833 835 880 885 897 938 942 944 945 981 985 1054 1248 1254 1262 

2266 2268# 
2298 2300 2303# 
2352 2356# 
2355 2358# 

2324 2326# 

2325 2328# 
2327 2330# 
2334 2336 2339# 

2342 2344# 

2343 2346# 
2345 2348# 
2302 2338 2350# 
2359 2364# 
2259 2262# 
1480# 1496 1498 

418# 1479 1483 1490 1952 1958 1966 1967 2033 2041 2115 2126 

456# 1478 1496 1498 2263 

414# 1151 1202 2641 2646 

1055 1060# 

1059 1065# 

1091# 1165 

450# 1203 

1120# 1166 

1023# 1163 

1053# 1164 

68# 1256 

90# 

89# 1247 
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LINMAX N 

LNLGTH L 

LSTBYT N 

LSTFLG L 

^ LSTWRD N 

MEMORY_TRACE_ADDR_HIGH. . . . L 

MEMORY_TRACE_ADDR_LOW .... L 

. MFOO L 

MFOl L 

MF02 L 

MFTOO L 

MIO L 

Mil L 

MIT_JMP_TBL . L 

MNE ACALL N 

^^NE_ADD N 

^^^NE_ADDC N 

^■FNE AJMP N 

^^NE~ANL N 

MNE_CJNE N 

MNE_CLR N 

MNE_CPL N 

MNE_DA N 

MNE_DEC N 

MNE_DIV N 

MNE_DJNZ N 

MNE_INC N 

MNE_JB N 

MNE_JBC N 

MNE_JC N 

MNE_JMP N 

MNE_JNB N 

•NE_JNC N 

f^E_JNZ N 

NE_JZ N 

nNE_LCALL N 

MNE_LJMP N 

MNE_MOV N 

MNE_MOVC. N 

MNE_MOVX N 

MNE_MUL N 

MNE_NOP N 

MNE_ORL N 

MNE_POP N 

MNE_PUSH N 

MNE_RET N 

MNE_RETI N 

1NE_RL N 

NE_RLC N 

NE_RR N 

'MNE_RRC N 

MNE SETB N 



DSEG 

BSEG 

DSEG 
DSEG 
CSEG 
CSEG 
CSEG 
CSEG 
CSEG 
CSEG 
CSEG 



0018H 
0054H 
E015H 
000 IH 
E018H 
0069H 
006AH 
F7D3H 
F7DBH 
F7EBH 
F81BH 
F970H 
F972H 
F921H 
0002H 
0014H 
0013H 
0003H 
OOllH 
0009H 
OOIAH 
OOIBH 
OOICH 
0025H 
0021H 
0015H 
0027H 
0017H 
0018H 
0008H 
0022H 
0016H 
0007H 
0005H 
0006H 
OOOOH 
OOOIH 
OOOFH 
630 
744 
774 
OOOAH 
OOOBH 
0020H 
002BH 
0012H 
OOIDH 
OOIFH 
002AH 
00 2 9H 
0024H 
0023H 
0028H 
0026H 
0019H 



58# 68 

91# 

127# 2474 2518 

104# 443 

128# 2188 2504 2515 

428# 2192 2537 2554 2563 

429# 2191 2533 2535 2550 2561 

832 840# 

840 843# 

843 8^9# 

890 893# 

1216 1218# 

1217 1219# 
1150 1157# 

317# 479 519 559 599 639 679 719 759 

335# 503 504 505 506 508 509 510 511 513 514 515 516 

334# 523 524 525 526 528 529 530 531 533 534 535 536 

318# 459 499 539 579 619 659 699 739 

332# 560 561 563 564 565 566 568 569 570 571 573 574 575 576 620 678 

324# 683 684 685 686 688 689 690 691 693 694 695 696 

341# 700 701 743 



342# 6 
343# 723 
352# 
348# 



483 
623 



681 763 



484 485 486 4^ 



490 491 493 494 495 496 



336# 724 728 729 730 731 733 734 735 736 

354# 463 464 465 466 468 469 470 471 473 474 475 476 661 

338# 498 

339# 478 

323# 538 

349# 601 

337# 518 

322# 558 

320# 598 

321# 578 

315# 480 

316# 460 

330# 603 604 605 606 608 609 610 611 613 614 615 616 624 625 626 628 629 
631 633 634 635 636 638 640 660 665 666 668 669 670 671 673 674 675 676 
745 746 748 749 750 751 753 754 755 756 764 765 766 768 769 770 771 773 
775 776 

325# 621 641 

326# 738 740 741 758 760 761 

347# 663 

358# 458 

333# 540 541 543 544 545 546 548 549 550 551 553 554 555 556 600 658 

344# 718 

346# 698 

357# 500 

356# 520 

351# 501 

350# 521 

355# 461 

353# 481 

340# 720 721 
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MNE_SJMP N 

MNE_SUBB N 

MNE_SWAP N 

MNE_UNDEF N 

MNE_XCH N 

MNE_XCHD N 

MNE_XRL N 

MNEMONIC_FACTOR N 

MNEMONIC_FIRST_OPERAND. . . . L CSEG 

MNEMONIC_INSTR_LIST_TAIL. . . L CSEG 

MNEMONIC_INSTRUCTION_TAIL . . L CSEG 

MNEMONIC ORDINAL L DSEG 

MNEMONIC_SECOND_OPERAND_TAIL. L CSEG 

MNEMONIC_TAB L CSEG 

MNEMONIC_TWO_OPERANDS .... L CSEG 

MOVC_OPERANDS L CSEG 

MSOO L CSEG 

MSOl L CSEG 

MS02 L CSEG 

MTO L CSEG 

MTOO L CSEG 

MTOl L CSEG 

NEWLINE N 

N0_BIT_8 L CSEG 

NO OF OPERANDS_PRINTED. . . . L DSEG 

NUMBER_OF_BYTES L DSEG 

NUMBER_OF OPERANDS L DSEG 

NUMBER TO'R'E N 

OBCO L CSEG 

OBCl L CSEG 

0BC2 L CSEG 

0BC2 2 L CSEG 

OBCRET L CSEG 

OFST N 

OLD ASM_PC_HIGH L DSEG 

OLD~ASM_PC_LOW L DSEG 

ONE_BYTE_TAIL L CSEG 

OPERAND_BYTE_CHECK L CSEG 

OPERAND_C .... * L CSEG 

OPERAND_CHECK L DSEG 

OPERAND_FACTOR N 

ORDINAL L DSEG 

ORG TOKE N 

OUR~CODE_HIGH L DSEG 

OUR_CODE_LOW L DSEG 

OUR GTRTHN L CSEG 

PARAMl N REG 

PARAM2 N REG 



VALUE AND REFERENCES 

0004H 319# 618 

OOOEH 329# 643 644 645 646 648 649 650 651 653 654 655 656 

OOIEH 345# 703 

FFFFH 263# 664 

OOODH 328# 704 705 706 708 709 710 711 713 714 715 716 

OOOCH 327# 725 726 

OOIOH 331# 580 581 583 584 585 586 588 589 590 591 593 594 595 596 

002CH 452# 1524 1537 1578 1787 2275 2282 2287 

F7B9H 830# 1159 

F93CH 1190# 1267 

F911H 1148# 1219 

006DH 432# 2294 2351 2497 2634 2639 

F7B3H 802# 900 907 911 915 

F587H 265# 1200 2638 

F7F4H 879# 1160 

F85EH 937# 1161 

F838H 898 903# 

F846H 904 908# 

F852H 908 912# 

F882H 946 950# 

F812H 881 890# 

F824H 892 896# 

EOOFH 125# 1253 2185 

FABOH 1699 1701# 

0067H 426# 2434 2588 2644 ^^^ ^^^^ 

004DH 84# 847 997 1064 1095 1194 1704 1710 1730 1732 1734 1736 1763 1873 1948 

1981 2038 2101 2123 2148 2217 2353 2357 2404 2407 2534 

006BH 430# 2301 2337 2349 2360 

OOOIH 45# 849 893 913 991 1060 

FE41H 2396 2397# 

FE4DH 2398 2402 2405# 

FE49H 2399 2401# 

FE4BH 2400 2403# 

FE52H 2406 2408# 

OOIOH 57# 1198 1599 1813 2461 2635 

005DH 416# 1946 2065 2134 2136 

005EH 417# 1947 2066 2133 2135 

F7B3H 801# 839 842 949 953 1158 

FE3CH 2367 2368 2394# 

FB5FH 1811 1833# 

006CH 431# 2361 2369 2395 

0018H 453# 1541 1549 1799 1807 1821 1829 2304 2311 2316 

005CH 415# 837 844 882 947 951 1093 1525 1538 1698 1700 1708 1714 1740 1751 

1755 1761 

00D4H 54# 1249 

004EH 85# 1195 1485 1522 1529 1532 1546 1547 1551 1554 1592 1595 1596 1609 

1612 1613 1804 1805 1809 1810 1826 1827 1831 1832 1834 2270 2276 2295 2299 

2305 2331 2335 

004FH 86# 1199 1204 1207 1215 1489 1526 1530 1533 1543 1544 1589 1590 1606 

1607 1801 1802 1823 1824 1836 1838 2274 2277 2291 2296 2297 2306 2320 2332 

2333 2340 

F966H 1204 1212# ^ ^^ 

R2 109# 1257 1259 1875 1883 2140 2186 2189 2462 2473 2482 2487 2499 2502 

2513 2517 2573 2581 2610 2636 2642 

R3 110# 2187 2503 2514 2574 2582 
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NAME 
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PARAM3 N REG 

PARAM4 N REG 

PARAM5 N REG 

PARAM6 N REG 

^ PARTIT HI HIGH L DSEG 

PARTIT~HI~LOW L DSEG 

PARTIT_LO_HIGH L DSEG 

. PARTIT_LO_LOW L DSEG 

PC_TOKE N 

PLUS_TOKE N 

PNTHGH L DSEG 

PNTLOW L DSEG 

POINTO N REG 

>P0INT1 N REG 

P0UND_EXP_0P2 N 

P0UND_T0KE N 

PRINT_STRING N 

QUOTIENT_HIGH L DSEG 

QUOTIENT_LOW L DSEG 

R0_0P1 N 

R0_0P2 N 

R1_0P1 N 

R1_0P2 N 

R2_0P1 N 

R2 0P2 N 

R3_0P1 . N 

R3_0P2 N 

R4_0P1 N 

•R4_0P2 N 

R5_0P1 N 

R5 0P2 N 

R6~0P1 N 

R6_0P2 N 

R7_0P1 N 

R7_0P2 N 

REG . . N 

REL_OFFSET_HIGH L DSEG 

REL_0FFSET_L0W L DSEG 

REL8_0P1 N 

REL8 0P2 N 

ROTATE L CSEG 

ROTATE CONTINUE L CSEG 

SAVE_ATID_DISPLAY N 

SECOND_EXP L BSEG 

SEC0ND_N0_BIT_8 L CSEG 

•SECOND_NOT_REGISTER L CSEG 

SECOND_OPER_ORDINAL L DSEG 

SELECT L DSEG 

SELECT CON N 



R4 111# 

R5 112# 1401 1414 1422 1432 

R6 113# 1400 1411 1416 1419 

R7 114# 1399 1431 1540 1548 

2286 2295 2309 2315 2331 

0059H 96# 2225 

005AH 97# 413 2222 

0057H 94# 2186 2192 2202 2220 

0058H 95# 2187 2191 2199 2216 

OOAOH 55# 950 

0005H 48# 834 

0044H 75# 2134 2146 2151 2202 

0045H 76# 2133 2143 2144 2150 

RO 107# 1256 1261 1951 1952 

1976 2008 2009 2025 2029 2032 

2110 2116 2117 2118 2125 2126 

2471 2472 2492 2493 2494 2495 

Rl 108# 2193 2195 2200 2209 

4A40H 402# 503 523 541 543 561 

614 615 616 643 683 685 686 6^ 

0006H 47# 886 904 986 

EOIEH 129# 2575 2583 

0071H 436# 1432 2280 2285 2289 

0072H 437# 1433 2279 2281 2284 

OOBOH 366# 468 488 608 668 688 

1080H 390# 508 528 548 568 588 

OODCH 367# 469 489 609 669 689 

14A0H 391# 509 529 549 569 589 

0108H 368# 470 490 610 670 690 

18C0H 392# 510 530 550 570 590 

0134H 369# 471 491 611 671 691 

ICEOH 393# 511 531 551 571 591 

0160H 370# 473 493 613 673 693 

2100H 394# 513 533 553 573 593 

018CH 371# 474 494 614 674 694 

2520H 395# 514 534 554 574 594 

01B8H 372# 475 495 615 675 695 

2940H 396# 515 535 555 575 595 

01E4H 373# 476 496 616 676 696 

2D60H 397# 516 536 556 576 596 

0040H 56# 1600 1814 2461 

0060H 419# 1984 1985 2001 2018 

0061H 420# 1983 1992 1998 2000 
2059 2070 2074 2080 2081 2087 

03C8H 382# 538 558 578 598 618 

5AC0H 405# 478 498 518 724 728 

F9E4H 1407 1409 1431# 

F9EBH 1431 1435# 

E05CH 137# 1258 1260 

0004H 446# 1193 1723 1742 1746 

FAF8H 1748 1750# 

FB3CH 1791 1793 1812# 

0064H 423# 2340 2341 2347 2369 

0046H 77# 2132 2205 

OOOOH 61# 



1440 1442 

1424 1433 1437 1439 2279 2296 2308 2332 

1601 1604 1798 1806 1815 1818 1820 1828 2280 



226 

218 2223 



2204 
2201 

1957 1958 1959 1960 1965 1966 1973 1974 1975 

2033 2040 2041 2073 2074 2090 2094 2096 2097 

2127 2128 2129 2130 2137 2139 2142 2210 2211 

2496 2522 2523 2528 2529 2541 2542 

2212 

563 581 583 603 604 605 606 608 609 610 611 613 

S 689 690 691 693 694 695 696 



2290 2309 2314 2318 2319 
2293 2308 2310 2313 2322 

728 768 

628 648 708 748 

729 769 

629 649 709 749 

730 770 

630 650 710 750 

731 771 

631 651 711 751 

733 773 

633 653 713 753 

734 774 

634 654 714 754 

735 775 

635 655 715 755 

736 776 

636 656 716 756 

2019 2043 2044 2060 2083 2084 

2005 2009 2015 2016 2022 2026 2042 2051 2057 

2091 

729 730 731 733 734 735 736 



1757 



2442 
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VALUE AND REFERENCES 



SET_BIT_EXP L CSEG FAAOH 

SET EXP_16_FLAG L CSEG FAB8H 

SET_EXP_FLAG L CSEG FACIH 

SET POUND_EXP_FLAG L CSEG FAE8H 

SET_REL_FLAG L CSEG FB04H 

SET SLASH EXP FLAG L CSEG FAFCH 

SLA'S'H_EXP~0P2~ N 4E60H 

SSO L CSEG FEE9H 

SSI L CSEG FEEFH 

SS2 L CSEG FEFCH 

SS3 L CSEG FEF2H 

START_DIVIDE L CSEG F9B4H 

STOl L CSEG F8A9H 

STORE N E04DH 

STORET L CSEG F8B2H 

STRGBF L DSEG 003CH 

STRGCT L DSEG 0055H 

SUBTRACT_WITH_C L CSEG F9D2H 

TEMP N REG R5 

TEMP_LOW L DSEG 0047H 

TEMP SEC L DSEG 0062H 

TEMPT L DSEG 0056H 

THIRD_OPER_ORDINAL L DSEG 0065H 

THREE_OPERANDS L CSEG F88EH 

TIME N E012H 

TOERR L CSEG F8C2H 

TOKSIZ N 0004H 

TOKSTR L DSEG 0048H 

ULO L CSEG FA43H 

ULl L CSEG FA3EH 

UNDEFINED_OPCODE N 00A5H 

UPDATE LSSTHN L CSEG FA41H 

UPDATE~OUR_CODE L CSEG FA28H 

VALHGH L DSEG 0049H 

VALLOW L DSEG 004AH 

2517 

WAIT_FOR_USER N E062H 

WORKING SPACE L DSEG 0040H 

2137 



1597 1614# 

888 1122 1707# 

894 1713# 

905 987 1739# 

1025 1057 1062 1760# 

909 1754# 

403# 658 678 

2508 2510# 
2510 2512# 
2512 2517# 

2509 2511 2513# 
1397# 2278 2307 
986 990# 
132# 2141 
989 993# 
69# 
92# 

1406 1418# 1430 
117# 

78# 2105 2109 2207 2211 2268 2271 2272 2549 2552 
421# 895 993 1065 1969 1971 1974 2097 
93# 

424# 2354 2444 
980# 1162 
126# 

913 991 999# 1060 
59# 69 

79# 903 1197 1579 1585 1602 1615 1788 1794 1816 
1523 1537# 
1531 1533# 
454# 2259 

838 845 883 948 952 1094 1521# 1702 1709 1715 1741 1752 1756 1762 

80# 1251 1984 2043 2103 2111 2128 2494 2502 2513 2527 2558 2567 

81# 895 993 1065 1252 1960 1970 1976 1983 2042 2118 2130 2496 2503 2514^ 

2529 2553 2562 

139# 2231 

70# 1951 1957 1965 1973 2008 2025 2032 2040 2073 2090 2096 2110 2125 

2208 2258 2469 2492 2522 2539 2656 2658 2659 2659 2660 
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